№1
program gg;
var a:array[1..5,1..5] of integer;
i,j,min:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(10);
min:=maxint;
for i:=1 to 5 do
if min>a[i,i] min:=a[i,i]; {если нужна другая диагональ то вместо a[i,i] поставь a[i,5-j+1]}
writeln(min);
end.