program pr_6;
uses crt;  
type mass = array [1..5,1..5] of integer;
var a1, a2, a3:mass;
n1,m1,n2,m2,n3,m3:integer;
var x,y,x1,x2,x3,y1,y2,y3:real;  
procedure wwod (p:string; var h:mass; n:integer;m:integer);
var l1,l2:integer;
i, j:integer;  
begin
write ('vv stroki massiva' , p ,'');
read(n);  
write ('vv stolbcov massiva' , p ,'');
  read(m);
  write ('vv nignii predel massiva' , p ,'');
read(L1);  
write ('vv verhnii predel massiva' , p ,'');
read(L2);
writeln ('massiv' , p ,'sgenerirovan avtomat');
for i:=1 to n do
begin  
for j:=1 to m do  
begin  
H [i,j]:=random (L2-L1+1)+L1;
write (H[i,j], '');  
end;
writeln;  
end;  
end;  
procedure summ (H:mass; m, n:integer; var s:real);
var i,j:integer;  
begin
s:=0;
for i:=1 to n do
begin  for
j:=2 to m do
  begin  
if i mod 2<>0 then
if (H[i,j]<H[i,j-1]) and (H[i,j]<H[i,j+1]) then  
s:=s+H[i,j];  
end;  
end;
end;
procedure summ_2 (H:mass; m, n:integer; var s:real);
var i,j:integer;
begin  
s:=0;
  for i:=1 to n do  
begin  
for j:=2 to m do
begin  
if i mod 2=0 then
if (H[i,j-1]<H[i,j]) and (H[i,j]<H[i,j+1]) then  
s:=s+H[i,j];  
end;  
end;
  end;  
begin
clrscr;
randomize;
wwod ('a',a1,n1,m1);
wwod ('a',a2,n2,m2);
wwod ('a',a3,n3,m3);
summ (a1,n1,m1,x1);  
summ (a2,n2,m2,x2);  
summ (a3,n3,m3,x3);  
summ (a1,n1,m1,x1);  
summ (a2,n2,m2,x2);
summ (a3,n3,m3,x3);  
begin  
x:=x1+x2+x3;  
y:=y1+y2+y3;  
writeln('x=', x:3 'y=',y:3);  
if x=0 then writeln('net min elementov');  
if y=0 then writeln (  'net max elementov');  
end;  
end.