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

[-Len-]

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

[volvo]

Объединяя все вышесказанное:

Код

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