program z1;
var i,s,n: integer;
begin
s := 0;
write ('n = ');
readln(n);
for i := 1 to n do
s := s + i*i;
writeln('s = ',s)
end.
