Program Zada4a2;
uses crt;
const
M= 4;
N= 4;

var i,j,k:integer;
mas: array[1..M, 1..N] of integer;

begin
clrscr;
randomize;
for i:=1 to M do begin
Writeln(' ');
for j:=1 to N do begin
mas[i][j]:= random(20);
write(mas[i][j],' ');
end; end;

writeln(' ');
writeln('Vvedite k');
readln(k);
writeln(' ');


for j:=1 to N do begin
write(mas[k][j],' ');end;
readln; end.