program ll;
const p=5;m=5;
var a,b:array[1..p,1..m] of integer;
j,k1,k2,i,n:integer;
BEGIN
randomize;
for i:=1 to p do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)-20; write(a[i,j]:3);
end;
writeln;
end;
for i:=n downto p do
for j:=1 to m do a[i+1,j]:=a[i,j];
for j:=1 to m do a[p,j]:=0;
writeln;
readln;
end.