Нужен о написать программу в Pascal, помогите пожалуйста

В программке ошибку выдаёт(

Странно у меня все работает, можешь ошибку сбросить?

Ты на freepascal?

Если на freepascal то вотuses math;varn,i: integer;s: double;beginreadln(n);for i:=1 to n do s:=s+(1/i**3);write(s:2:5);end.

Скачала иной, все заработало, спасибо)

Можешь ещё с одной программкой посодействовать пожалуйста?) Дана квадратная матрица. Отыскать сумму основной диагонали и отнять полученное число из всех частей матрицы, больших данной суммы

varn,i,j, sum: integer;mas: array[1..100,1..100] of integer;beginsum:=0;readln(n);for i:=1 to n dobegin for j:=1 to n do read(mas[i,j]); readln;end;for i:=1 to n do inc(sum, mas[i,i]);for i:=1 to n do for j:=1 to n do if (mas[i,j]>sum) then dec(mas[i,j], sum);writeln('Вывод');for i:=1 to n dobegin for j:=1 to n do write(mas[i,j], ' '); writeln;end;end.

Если я окончательно все верно понял..