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

var i,j,min: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(' ');

for i:=1 to M do begin
min:=1000;
for j:=1 to N do begin
if (min>mas[i][j]) then begin min:=mas[i][j] end; end;writeln(' ');
writeln(min);

end;
readln;
end.