program z8_103;
uses crt;
const n=5;m=6;
type mas=array[1..n,1..m] of integer;
var a:mas;
i,j,k,c,b:integer;
procedure udal(var x:mas;p,h:integer);
begin
for i:=p to n do begin
for j:=1 to m do begin
x[i,j]:=x[i+1,j];
end;end;
for i:=1 to n do begin
for j:=h to m do begin
x[i,j]:=x[i,j+1];
end;end;
end;
BEGIN
clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(20)-1;write(a[i,j]:5);
end;writeln;end;
writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]<0 then udal(a,i,j);
end;end;
for i:=1 to n-1 do begin
for j:=1 to m-1 do begin
write(a[i,j]:5);
end;writeln;end;
readln;
END.