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

[-Len-]

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

[volvo]

-Len-
Ну, если в "обратном порядке" - значит, наверное, вот так:

Код

Var i: integer; s: LongInt;
Begin
 s := 0;
 For i := 100 DownTo 1 Do
   { увеличиваем сумму }

 { Выводим сумму }
End.