program valeriyaO;
const n=10;
var a:array[1..6,1..4] of integer;
    i,b,c,j,min:integer;
begin
min:=n+1;
for i:=1 to 6 do
for j:=1 to 4 do begin
a[i,j]:=random(n);
write(a[i,j]:2);
if j=4 then writeln;
end;

for i:=1 to 6 do begin
j:=1;
while j<=4 do begin
if a[i,j]<min then begin min:=a[i,j]; b:=i; c:=j; end;
j:=j+1;
end;
writeln('a[',b,',',c,']=',a[b,c]);
min:=n+1;
end;

end.