Вычислить сумму элементов главной диагонали..., Задача на матрицы Опции

[volvo]

Оля, ввод, а не вывод...

...
  writeln('vvedite elementi matrici');
  for i:=1 to n do begin
    write(i:2, '-я строка: ');
    for j:=1 to n do read(p[i,j]);
    readln;
    s1:=s1+p[i,i];
    s2:=s2+p[i,n+1-i];
  end;
...

Всю строку вводишь через пробелы, после этого нажимаешь Enter...

[Айра]

Оля, ввод, а не вывод...

Ой.. извиняюсь..