Вычислить нечто ...

type t_matr =array[l..5,l..5] of integer;
 
function f1(a: array of integer; x: integer): boolean;
var i: integer;
begin
while(i >= 0) and (a[i] <> x) do 
dec(i);
fi:= i >= 0;
end;
 
function f2 (a,b: array of integer): boolean;
var i: integer;
begin
i:= high(a);
whi1e ((i>= O) and f1(a, b[i])) do 
begin
dec(i);
f2:=i,0;
end
end;
const a: t_matr=((5,2,3,1,4),
                 (1,3,2,5,6),
                 (3,4,2,1,3),
                 (1,3,3,3,2));
var i,k:integer;
begin
k:=0;
for i:=2 to 5 do
if f2(a[1], a[i]) then inc(k);
writeln; 
write(k);
end.

whi1e

while

f2:=i,0;

const a: t_matr=((5,2,3,1,4),
                 (1,3,2,5,6),
                 (3,4,2,1,3),
                 (1,3,3,3,2));

uses crt;
type t_matr =array[1..5,1..5] of integer;
 
function f1(a: array of integer; x: integer): boolean;
var i: integer;
begin
i:=high(a);
while(i >= 0) and (a[i] <> x) do
dec(i);
f1:=i>= 0;
end;
 
function f2 (a,b: array of integer): boolean;
var i: integer;
begin
i:= high(a);
while ((i>=0) and f1(a, b[i])) do
begin
dec(i);
f2:=i<0;
end
end;
const a: t_matr=((5,2,3,1,4),
                 (1,3,2,5,6),
                 (3,4,2,1,3),
                 (2,3,1,0,2),
                 (1,3,3,3,2));
var i,k:integer;
begin
clrscr;
k:=0;
for i:=2 to 5 do
if f2(a[1], a[i]) then inc(k);
writeln;
write(k);
readln
end.