Question

Найти сумму квадратов всех натуральных чисел от 1 до 100

Answer 1

Var i,n : Integer;
Begin
  n:=0;
  For i:=1 to 100 do n:=n+sqr(i);
  Writeln(n);
end.

Результат: 338350