Если количество четных элементов в каждой строке матрицы одинаково, то найти сумму квадратов положительных элементов

const
  W=8; n=3; m=4; { строк, столбцов }
var
  a: array [1..n,1..m] of integer;
  i, j, c, cc: integer;
  s: longint;
begin
  Assign(input,'in.txt'); Reset(input);
  Assign(output,'out.txt'); Rewrite(output);
  for i:=1 to n do begin
    for j:=1 to m do begin
      Read(a[i,j]); Write(a[i,j]:W);
    end; WriteLn;
  end;
  for j:=1 to m do if not odd(a[1,j]) then inc(cc);
  for i:=2 to n do begin
    c:=0;
    for j:=1 to m do if not odd(a[i,j]) then inc(c);
    if c<>cc then break;
  end;
  if c<>cc then begin
    c:=a[1,m];
    for i:=2 to n do if a[i,m]>c then c:=a[i,m];
    WriteLn('max = ',c);
  end else begin
    s:=0;
    for i:=1 to n do
      for j:=1 to m do if a[i,j]>0 then inc(s,sqr(a[i,j]));
    WriteLn('sum = ',s);
  end;
end.

const
  W=8; n=3; m=4;
type
  trow = array [1..m] of integer;
  tmatr = array [1..n] of trow;
 
procedure ReadM(var a: tmatr);
var i, j: integer;
begin
  for i:=1 to n do for j:=1 to m do Read(a[i,j]);
end;
 
procedure WriteM(a: tmatr);
var i, j: integer;
begin
  for i:=1 to n do begin
    for j:=1 to m do Write(a[i,j]:W);
    WriteLn;
  end;
end;
 
function EvenCount(a: trow): integer;
var j, c: integer;
begin
  c:=0;
  for j:=1 to m do
    if not odd(a[j]) then inc(c);
  EvenCount:=c
end;
 
function IsECEqual(a: tmatr): boolean;
var i, c: integer;
begin
  IsECEqual:=false;
  c:=EvenCount(a[1]);
  for i:=2 to n do
    if EvenCount(a[i])<>c then Exit;
  IsECEqual:=true;
end;
 
function Sum2p(a: tmatr): longint;
var
  i, j: integer;
  s: longint;
begin
  s:=0;
  for i:=1 to n do
    for j:=1 to m do if a[i,j]>0 then inc(s,sqr(a[i,j]));
  Sum2p:=s;
end;
 
function ColMax(a: tmatr; col: integer): integer;
var m, i: integer;
begin
  m:=a[1,col];
  for i:=2 to n do if a[i,col]>m then m:=a[i,col];
  ColMax:=m;
end;
 
var
  a: tmatr;
begin
  Assign(input,'in.txt'); Reset(input);
  Assign(output,'out.txt'); Rewrite(output);
  ReadM(a); WriteM(a);
  if IsECEqual(a) then
    WriteLn('sum = ',Sum2p(a))
  else
    WriteLn('max = ',ColMax(a,m));
end.