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

[-Len-]

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

[volvo]

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

Код

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

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

[Guest]

А без LongInt нельзя? Мы это не проходили.
Я только что напечатала, что могла, вот такой вариант подойдет:

Код

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