Решите информатику 1 вариант

Var
  X: array [1..5, 1..5] of real;
  Y: array [1..4, 1..4] of real;
  i, j: byte;
  SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
  for j := 1 to 5 do
  begin
    X[i, j] := random*40-20;
    if X[i, j] < 0 then SumX := SumX + X[i, j];
    write(X[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    Y[i, j] := random*40-20;
    if Y[i, j] < 0 then SumY := SumY + Y[i, j];
    write(Y[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.

А) х^2 + у^2 < 4 ⇒ 1^2+(-1)^2 < 4 ⇒ 2 < 4 ⇒ Истина
б) (х >= 0) или (y^2<> 4) ⇒ (1 >= 0) или (2^2 <> 4) ⇒ Истина или Ложь ⇒ Истина
в) (х > =0) и (у^2 <>4) ⇒ (1 >= 0) и (2^2 <> 4) ⇒ Истина и Ложь ⇒ Ложь
г) (х • у<> 0) и (у > х) ⇒ (2 • 1 <> 0) и (1 > 2) ⇒ Истина и Ложь ⇒ Ложь 
д) (х • у<> 0) или (y< х) ⇒ (2 • 1 <> 0) или (1 > 2) ⇒ Истина или Ложь ⇒ Истина 
е) (не (х • у < 0)) и (у > х) ⇒ (не (2 • 1 < 0)) и (1 > 2) ⇒ не Ложь и Ложь ⇒ Истина и Ложь ⇒ Ложь
ж) (не (х • у < 0)) или (у > х) ⇒ (не (1 • 2 < 0)) и (2 > 1) ⇒ не Ложь и Истина ⇒ Истина и Истина ⇒ Истина