program pr1;
var a:array[1..50,1..50] of integer;
n,i,j,min:byte;
begin
writeln('Vvedite razmernost n');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=1;
for i:=2 to n do
if a[i,i]<a[min,min] then min:=i;
writeln('Координаты минимального элемента главной диагонали- [',min,':',min,']');
end.