lab 11 var 11

program Lab11;
{$APPTYPE CONSOLE}
uses
  Windows,
  SysUtils;

const
Nmax=5;
type
matr=array [1..Nmax,1..Nmax] of integer;
var
na,nb,nc,minimum,SumDA,SumDB,SumDC:integer;
SredA,SredB,SredC:real;
A,B,C:matr;
dat,res:TextFile;
procedure Input(var dat:TextFile; var n:integer; var A:matr);
var
i,j:byte;
begin
read(dat,n);
for i:=1 to n do
for j:=1 to n do
read(dat,A[i,j]);
end;
function Sred(var res:TextFile; const n:byte; const A:matr):real;
var
i,j:byte;
Sum, Sumcount:integer;
  begin
   Sum:=0;
   SumCount:=0;
 for i := 1 to n do
 begin
  for j := 1 to n do
  if A[i,j]>A[i,i] then
  begin
  Sum:=Sum+A[i,j];
  inc(SumCount);
  end;
  end;
   if sumcount<>0 then
  Sred:=sum/SumCount else sred:=0;
end;
function SumD(var res:TextFile; const n:byte; const A:matr):integer;
var
i,j:byte;
Sum:integer;
  begin
   Sum:=0;
 for i := 1 to n do
 begin
  for j := 1 to n do
  begin
  Sum:=Sum+A[i,i];
  end;
  end;
   SumD:=sum;
end;
procedure ProcessingAndCompare(var sred1,sred2,sred3:real; out min:integer);
var
sr:real;
  begin
  min:=0;
  sr:=0;
  if SredA<>0 then
  begin
sr:=sred1;
min:=