program hh;
uses crt;
const n=5;
var a:array[1..n,1..n] of real;
i,j,t,v:integer; p:real;
Begin
clrscr;
randomize;
readln(t);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j]:7:0); end;
writeln; end;
writeln('-------------------');
begin
{for i:=1 to n do begin
if i=t then i:=i-1; end;}
for i:=t to n-1 do
for j:=1 to n do a[i,j]:=a[i+1,j];
for j:=1 to n do a[n,j]:=0;
end;
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:7:0); end;
writeln; end
end.