program minor2_count;
const size=10;
type Matrix= array [1..size,1..size] of real;

function minor2 (n:integer; i,j,l,k:integer; a:matrix):real;
begin
minor2:=a[i,j]*a[l,k]-a[l,j]*a[i,k];
end;

procedure Input2 (var n:integer; maxn:integer; var a:matrix);
var i,j:integer;
begin
repeat
writeln;
write ('Введите размерность матрицы ', '(от 2 до ',size,' включительно):');
readln (n);
until (n>1) and (n for i:=1 to n do begin
writeln;
write ('Введите ',i,' строку матрицы:');
for j:=1 to n do read (a[i,j]);
end;
end;

var i,j,k,l,n:integer; s:real; a:matrix;
begin
Input2 (n,size,a);
for i:=1 to n do
for j:=1 to n do
for l:=i+1 to n do
for k:=j+1 to n do begin
s:=minor2 (n,i,j,l,k,a);
writeln;
writeln ('Минор [',i,',',j,']');
writeln (' [',l,',',k,']=',s:8:3);
end;

end.

---