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

Если на 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.

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

var

n,i: integer;

s: double;

begin

readln(n);

for i:=1 to n do

 s:=s+(1/i**3);

write(s);

end.