program ghf;
const kolN=10;
 
var N,M:array[1..500,1..500] of integer;
    i,j:integer;
 
function max5(i:integer):integer;
var j,nK,max:integer;
    K:array[1..500] of integer;
begin
nK:=0;
for j:=1 to kolN do
if N[i,j] mod 5=0 then begin  inc(nK); K[nK]:=N[i,j]; end;
max:=K[1];
for j:=2 to nK do
if K[j]>max then max:=K[j];
max5:=max;
end;
 
function kolvo(i:integer):integer;
var j,rez:integer;
begin
rez:=0;
for j:=1 to kolN do
if N[i,j] mod 5=0 then inc(rez);
kolvo:=rez;
end;
 
begin
 
for i:=1 to kolN do
for j:=1 to kolN do begin
write ('N[',i,',',j,']='); readln (N[i,j]); end;
 
write ('Vot vvedennyy vami massiv N:');
for i:=1 to kolN do begin writeln;
for j:=1 to kolN do write (N[i,j]:3,' '); end;
 
for i:=1 to kolN do
if kolvo(i)>0 then
begin writeln;write('Kolvo elementov kratnix 5 v ',i,' stroke: ',kolvo(i),'; MAX=',max5(i)); end else
begin writeln;write('Kolvo elementov kratnix 5 v ',i,' stroke: ',kolvo(i),';'); end;
 
readln;
end.