program z8_104;
uses crt;
const n=6;
var a: array[1..n,1..n] of integer;i,j,k:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
for J:=1 to n do begin
a[i,j]:=random(30);write(a[i,j]:3);end;
writeln;end;
writeln('vvedite stroku');
readln(k);
for i:=1 to n-1 do begin
for J:=1 to n do begin
if i>=k then a[i,j]:=a[i+1,j]; write(a[i,j]:3); end;
writeln;end;
end.