program zadacha;
var
a:array[1..255,1..255];
b:array[1..255,1..255];
c:array[1..255];
k,i,j,n:integer;
begin
writeln ('Введите  номер строки которую нужно поменять');
readln (k);
writeln ('Введите количество элементов массива');
readln (n);
writeln ('Введите элементы массива и нажмите (Enter)');
for i:=1 to n  do
for j:=1 to n  do
read(A[i,j]);
for i:=1 to n  do
for j:=1 to n  do
b[i,j]:=a[i,j];

for j:=1 to n do
c:=b[k,j];
b[k,j]:=b[n,j];
b[n,j]:=c;
for j:=1 to n do
c[i]:=b[k,j];
for i:=1 to n  do
for j:=1 to n  do
 write (A[i,j]);
 for i:=1 to n  do
for j:=1 to n  do
 write (B[i,j]);
 for i:=1 to n  do
 write (c[i]);
end.