Сумма ряда - Free Pascal (137)

Формулировка задачи:

1)Задача : "По данному числу n вычислите сумму 1+1/2²+1/3²+...+1/n²." 2)Мой код :

                    Листинг программы
                
 
                        
                          
                    
Program Erica;
var n ,i : longint;
sum: double;
Begin
    Readln(n);
   sum:=1;
   for I:=2 to n do
   Begin 
   sum:=sum+1/sqr(i);
   end;
Writeln(sum)
   End.

3)Ccылка на задачу http://informatics.mccme.ru/mod/stat...hapterid=320#1 4)Усиленно говорит,что надо брать еще "более длинный тип данных". Куда длинее? Или программа написано криво?

Решение задачи: «Сумма ряда»

Листинг программы

sum:=sum+1/i/i;

Объяснение кода листинга программы

Код представлен одним выражением, которое вычисляет сумму ряда.

Создается переменная sum типа real, которая инициализируется нулем.
В цикле for перебираются числа от 1 до 100.
Внутри цикла к переменной sum прибавляется результат выражения 1/i/i, где i - это текущее значение переменной цикла.
После выполнения цикла, значение переменной sum будет содержать сумму ряда.