условие - Найти сумму элементов диагоналей матрицы.
program V_9_14;
var p:array[1..9,1..9] of real;
i,n,j:integer;
s1,s2:real;
begin
s1:=0;
s2:=0;
writeln ('vvedite razmer matrici');
readln(n);
writeln ('vvedite elementi matrici');
for i:=1 to n do
for j:=1 to n do
readln(p[i,j]);
for i:=1 to n do
for j:=1 to n do
begin
if (i=j) then s1:=s1+p[i,j];
if (i=j+1-10) then s2:=s2+p[i,j];
end;
writeln ('summa elementov glavnoj diagonali', s1:2:2);
writeln ('summa elementov diagonali simetrichnoj glavnoj', s2:2:2);
readln;
end.
вышло вот такое, но почему-то при запуске программу циклит..