program blablabla;
uses crt;
var k,n,i,j:byte;
     a:array[1..5,1..5] of integer;
     prov:boolean;
procedure proverka_zero;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if a[i,j]=0 then
inc(k);
end; end;
if k=5 then prov:=true
else
prov:=false;
end;
procedure vvod;
begin
clrscr;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
gotoxy(j*5,i*3);
readln(a[i,j]);
end; end; end;
begin
clrscr;
vvod;
proverka_zero;
if prov then
{делаешь перестановку, всё полностью мне лень за тебя писать, т.к. ты всё таки пошёл учиться...}
else
writeln('not all lines of an element of 0');

end.