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

program n1;
var a, square, sum:integer;
begin
Readln(a);
while a>0 do begin
square:= a*a;
sum:= sum+square;
a:=a-1;
end;
writeln(sum);
end.