Question

Подсчитайте сумму квадратов: 1 + 2  + 3 + 4  +…+n , если n=121.

Answer 1

var
s,n,i:integer;

begin
  n:=121;
  s:=0;
  for i:=1 to n do
       s:=s+sqr(i);
  writeln(s);
  readln;
end.