найти значение выражения на Pascal ABC 1 * 1 +2 * 2 +..+ n * n

....
sum:=0
for i:=1 to n do begin
s:=i*i;
sum:=sum+s;
end;
....

sum := 0; for i := 1 to n do sum += i*i;