ААААА С ИНФОРМАТИКОЙ, УЖЕ ЧАС СИЖУ, ВООБЩЕ НИЧЕГО НЕ ПОНИМАЮ

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var m:=ReadInteger('число строк ');
  var n:=ReadInteger('число столбцов ');
  var a:array[,] of real; SetLength(a,m,n);
  Randomize;
  var p:=1.0;
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      a[i,j]:=89*Random+10;
      Write(a[i,j]:0:5,' ');
      if j mod 2=0 then p*=a[i,j]
      end;
    Writeln
    end;
  Writeln(p)
end.

Тестовое решение:
число строк  4
число столбцов  3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9

1)

a) (X = Y) И (Y = Z)

б) ((X = Y) И (Y != Z))  ИЛИ ((X = Z) И (Z != Y)) ИЛИ ((Y = Z) И (Z != X))

!= - "не равно"

в) (X > 0) И (Y > 0) И (Z > 0)

г) ((X > 0) И (Y > 0) И (Z < 0)) ИЛИ ((X > 0) И (Y < 0) И (Z > 0)) ИЛИ ((X < 0) И (Y > 0) И (Z > 0))

(X*Y*Z>0) И (X<0 ИЛИ Y<0 ИЛИ Z<0)

д) (X < Y) И (Y < Z)

2)

а) (X = Y) and (Y = Z)

б) ((X = Y) and (Y <> Z))  or ((X = Z) and (Z <> Y)) or ((Y = Z) and (Z <> X))

в) (X > 0) and (Y > 0) and (Z > 0)

г) ((X > 0) and (Y > 0) and (Z < 0)) or ((X > 0) and (Y < 0) and (Z > 0)) or ((X < 0) and (Y > 0) and (Z > 0))

(X*Y*Z > 0) and ((X < 0) or (Y < 0) or (Z < 0))

д) (X < Y) and (Y < Z)