Кактус.
(-7;-9), (7;-9), (-10;-1), (10;-1), (-7;-1), (-10;6), (-6;14), (7;-15), (9;12), (6;7), (7;0), (7;-1).

Найдём все случаи когда сумма равна 7:

1+6

2+5

3+4

4+3

5+2

6+1

вероятность выпадения одного значения на одном кубике равна 1/6 Отсюда вероятность что выпадет 1 на одном кубике 1/6 , вероятность что выпадет 6 на другом кубике 1/6

вероятность что выпадет 1 и 6(что нам и нужно), умножаем вероятности отдельных бросков, получаем 1/6*1/6=1/36.

Всего таких 6 случаев, все их складываем получаем 6/36=1/6

Так же и находим для числа 9

3+6

4+5

5+4

6+3

1/6*1/6=1/36

1/36*4=4/36=1/9

Теперь складываем обе вероятности  1/9+1/6=2/18+3/18=5/18

1)
program one;
uses crt;
var A: array [1..6] of integer;
i,k,Amin,Amax,S: integer;
begin
readln (A[i]);
Amax:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]>Amax then begin
k:=i;
Amax:=A[i];
end;
end;
Amin:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]<Amin then begin
k:=i;
Amin:=A[i];
end;
end;
S:=0;
for i:=1 to 6 do begin
if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then
S:=S+A[i];
end;
writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S);
end.

2)
program two;
uses crt;
var x,a,b,i,n: integer;
y: real;
begin
readln (a,b,i,n);
x:=a;   
repeat
if -2<=x<=2 then
y:=sqr(x)-1
else
y:=sqrt(x-1);
writeln (y:3:4);
i:=i+n;
until x>=b;
end.