program z8_83;
uses crt;
var m,n,tt,i,j:integer;
a:array[1..100,1..100]of integer;
procedure st(var t:integer);
var i,j:integer;
BEGIN
for i:=n+1 downto t+1 do
for j:=1 to m do a[i,j]:=a[i-1,j];
for j:=1 to m do a[t+1,j]:=0;
inc(n);
end;
BEGIN
clrscr;
Write('n,m:');
readln(n,m);
Write('T:');
readln(tt);
randomize;
for i:=1 to n do begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:7);
end;
writeln;
end;
st(tt);
writeln;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:7);
writeln;
end;
readln;
END.