Задание 1. Даны два высказывания: А = ―2 х 2 = 4, В = -2 х 2 = 5. Очевидно, что А=1, В=0. Напишите какие из высказываний истинны, а какие ложны(на строках напротив каждого пункта)1. А 2. В 3. А 4. А V В Задание 2.Найдите значения выражений:(ответы напишите напротив каждого задания)а) (0 ИЛИ 1) И (0 ИЛИ 1) б) 0 ИЛИ 1 И 0 ИЛИ 1 в) 0 ИЛИ 1 И НЕ (0 ИЛИ 1) г) 1 ИЛИ 0 И 1 И 1 И 0 ИЛИ 1 д) ((1 ИЛИ 0) И (1 И 1)) е) (А ИЛИ 1) ИЛИ (В И 0) ж) ((А ИЛИ 0) ИЛИ В И 1) И 0 ​

Не знаю сорри 3 я думаю что это за

Лучше скачайте прикреплённый файл, так как здесь всё слилось))
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then  beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then  writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))

Const n=5;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(21);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,n];
for i:=2 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do 
 begin
 write(b[i]:4);
 s:=s+b[i];
 end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do 
 if b[i]>s/n then write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  10  19  15  17  10
  12  12  10   1   5
  17   8   8  14  15
  12  11   8   0  13
   2   2   4  10   6
1. max = 11
2. Массив B
  10   1   8   0   2
3. среднее = 4.2
  10   8