program stroka;
uses crt;
var t:array[1..20,1..20] of integer;
n,i,j,k,max,imax:integer;
begin
clrscr;
write('Vvedite razmer matricy n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('t[', i, ',', j, '] ');
readln(t[i,j]);
end;
clrscr;
writeln('Matrica:');
for i:=1 to n do
begin
for j:=1 to n do
write(t[i,j]:4);
writeln;
end;
max:=0;imax:=1;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if t[i,j] mod 5=0 then
k:=k+1;
writeln('V stroke ',i,' ',k,' elementov');
if k>max then
begin
max:=k;
imax:=i;
end;
end;
writeln('Naibolshae kolichestvo elementov=',max,' v stroke ',imax);
readln
end.