Сумма квадратов первых 100 натуральных чисел Опции

[-Len-]

Сегодня нам задали прогу, где TP должен найти сумму квадратов первых ста натуральных чисел. Еще, информатиня сказала, что в каком-то обратном порядке. Но я так и не поняла, что это значит.
Помогите мне, пожалуйста, составить эту программку.

[virt]

Код

rogram sdsdl;
uses crt;
var i: integer; sum: real;
begin
clrscr; sum := 0;
writeln('Нахождение суммы [!!!!!!!!!!!]чисел обратных квадратам[!!!!!!!!!!!] первых ста натуральных чисел');
for i := 100 downto 1 do
  sum := sum + 1/sqr(i);
writeln('Сумма [!!!!!!!!!!!!!!!]чисел обратных квадратам [!!!!!!!!!!]первых ста натуральных чисел = ',sum:2:1);
readln;
end.

берем прогу volvo и пишем в\место sqr(i) :: 1/sqr(i)