Дан фрагмент таблицы истинности выражения F Какое выражение может соответствовать F?
1) ¬X & ¬Y & ¬Z
2) ¬X or ¬ Y & ¬Z
3) ¬X & ¬ Y or ¬Z
4) X & ¬ Y & ¬Z

Если не видно на скриншоте

Program v1;

var a:array[0..30]of integer;            

i,min,max,n,t:integer;

begin

write('Введите размерность матрицы: '); readln(n);                

randomize;

for i:=1 to n do a[i]:=random(100)-50;                            

write('Значение матрицы: ');                                      

for i:=1 to n do write(a[i]:5); writeln;    

   max := 1;

 min := 1;

 t:=0;

 for i := 1 to n do

 begin

   if a[i] > a[max] then

     max := i

   else

     if a[i] < a[min] then

       min := i;

 end;

 for i := 1 to n do

   t:=a[min]*a[max];

 WriteLn('Среднее арифметическое: ', (a[max] + a[min])/2 ,' ' ,'Произведение максимального элемента на минимальный равно:', t);

end.

Const
  n=6;
  a:array[1..n] of string=
    ('Иванов','Петров','Сидоров','Козлов','Баранкин','Пупкин');
  b:array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);
  // массивы используются чтобы избежать в примере ручного ввода
var
  i,j,k:integer;
  t:real;
  s:string;
  sa:array[1..n] of string;
  sb:array[1..n] of real;
begin
  for i:=1 to n do begin sa[i]:=a[i]; sb[i]:=b[i] end;
  // сортировка по возрастанию времени
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if sb[j]>sb[j+1] then begin
        s:=sa[j]; sa[j]:=sa[j+1]; sa[j+1]:=s;
        t:=sb[j]; sb[j]:=sb[j+1]; sb[j+1]:=t
        end;
  // вывод
  for i:=1 to 4 do Writeln(sa[i],' - ',sb[i])
end.

Пример
Петров - 13.9
Козлов - 14.2
Баранкин - 14.5
Иванов - 15