хочу проверить свою работу: правильно или неправильно​

А) имеется в виду скорее всего уничтожение одного из бомбардировщиков, а не двух вместе.

Так как в предыдущем ответе б) и в) найдены верно. Это случай, когда сбиты одновременно два бомбардировщика 0,56, а также случай, когда не сбит ни один из бомбардировщиков 0,06. Значит остаются случаи, когда не сбит один из бомбардировщиков, а сбит другой. Из всех вероятных событий 1, вычитаем оба этих случая.

1-0,56-0,06= 0,42-0,06=0,38 - вероятность, что сбит один бомбардировщик, и не сбит другой.

Если считать по-другому: 

Сбит первый 1-0,7=0,3, а не сбит второй 0,8. Значит вероятность этого случая 0,3*0,8=0,24

Сбит второй 1-0,8=0,2, а не сбит первый 0,7. Значит вероятность уже этого случая равна 0,2*0,7=0,14.

Складываем оба этих случая 0,24+0,14=0,38. - опять тот же ответ.

ответ: вероятность равна 0,38 - сбит один из бомбардировщиков, а не сбит другой.

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.