Сим­во­лом f обо­зна­че­но одно из ука­зан­ных ниже ло­ги­че­ских вы­ра­же­ний от трех ар­гу­мен­тов: x, y, z. дан фраг­мент таб­ли­цы ис­тин­но­сти вы­ра­же­ния f:

Const
  n=7;

type
  V=array[1..n] of real;

var
  P:V;
  i,k:integer;
  a,b,c,d:real;

begin
  Writeln('Вводите длины сторон четырехугольника через пробел');
  for i:=1 to n do begin
    Write(i,': '); Read(a,b,c,d);
    P[i]:=a+b+c+d;
    end;
  k:=0;
  for i:=n-1 downto 1 do
    if P[i]=P[n] then k:=k+1;
  Writeln('Четырехугольников с периметром, как у последнего: ',k)
end.

Пример
Вводите длины сторон четырехугольника через пробел
1: 5 7 3 8
2: 3 7 3 6
3: 5 8 5 2
4: 6 8 4 1.9
5: 8 3 5 9
6: 7 3 7 2
7: 5 5 5 4
Четырехугольников с периметром, как у последнего: 2

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var a:=MatrRandom(4,5,-20,20).Println;
  var c:=a.ElementsByRow;
  Println('Кол-во положительных ->',c.Where(t->t>0).Count);
  Println('Кол-во кратных 7 ->',c.Where(t->t mod 7=0).Count);
  Println('Сред. арифм. отрицат. ->',c.Where(t->t<0).Average);
  var b:=a.ElementsWithIndexes.MinBy(t->t[0]);
  Writeln('Минимальный ->', b[0],'[',b[1]+1,',',b[2]+1,']');
  b:=a.ElementsWithIndexes.Where(t->t[0]<0).MaxBy(t->t[0]);
  Writeln('Максимальный отриц. ->', b[0],'[',b[1]+1,',',b[2]+1,']');
end.

Пример:
 -10   6  12   7   4
  -8  -4   3  -1   6
   9  -2  16  19 -18
  18   4  -3  12  -8
Кол-во положительных -> 12 
Кол-во кратных 7 -> 1 
Сред. арифм. отрицат. -> -6.75 
Минимальный ->-18[3,5]
Максимальный отриц. ->-1[2,4]