var
a:array[1..10,1..10] of integer;
i,j,m,n,k:integer;
begin
writeln('vvedite n :');
readln(n);
writeln('vvedite m :');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random (10)-5;
write(a[i,j]:2,'');
end;
writeln
end;
writeln('vvedite k..');
readln(k);
for i:=k to n-1 do
for j:=1 to m do
a[i,j]:=a[i+1,j];
writeln('novaa matrica:');
for i:=1 to n-1 do
begin
for j:=1 to m-1 do
write (a[i,j]:2,'');
writeln;
writeln('najmite enter');
readln;
end;
end.

dmFyCmE6YXJyYXlbMS4uMTAsMS4uMTBdIG9mIGludGVnZXI7CmksaixtLG4sazppbnRlZ2VyOwpiZWdpbgp3cml0ZWxuKCd2dmVkaXRlIG4gOicpOwpyZWFkbG4obik7CndyaXRlbG4oJ3Z2ZWRpdGUgbSA6Jyk7CnJlYWRsbihtKTsKZm9yIGk6PTEgdG8gbiBkbwpiZWdpbgpmb3Igajo9MSB0byBtIGRvCmJlZ2luCmFbaSxqXTo9cmFuZG9tICgxMCktNTsKd3JpdGUoYVtpLGpdOjIsJycpOwplbmQ7CndyaXRlbG4KZW5kOwp3cml0ZWxuKCd2dmVkaXRlIGsuLicpOwpyZWFkbG4oayk7CmZvciBpOj1rIHRvIG4tMSBkbwpmb3Igajo9MSB0byBtIGRvCmFbaSxqXTo9YVtpKzEsal07CndyaXRlbG4oJ25vdmFhIG1hdHJpY2E6Jyk7CmZvciBpOj0xIHRvIG4tMSBkbwpiZWdpbgpmb3Igajo9MSB0byBtLTEgZG8Kd3JpdGUgKGFbaSxqXToyLCcnKTsKd3JpdGVsbjsKd3JpdGVsbignbmFqbWl0ZSBlbnRlcicpOwpyZWFkbG47CmVuZDsKZW5kLg==