паскаль

[newlife]

найдите сумму минимальных элементов главной и побочной диагонали. Решите пожалуйста.добрые люди.

[DoDge_VipeR]

min1:=a[1,1];
min2:=a[1,n];
for i:=2 to n do begin
if a[i,i]<min1 then min1:=a[i,i];
if a[i,n-i+1]<min1 then min1:=a[i,n-i+1];
end;
min1:=min1+min2;
writeln(min1);