Сумма квадратов 2

program n1;
var a, square, sum, i:integer;
begin
Readln(a);
for i:=1 to a do begin
square:= a*a;
sum:= sum+square;
a:=a-1;
end;
writeln(sum);
end.