var 
s:real;
n,i:integer;
begin
s:=0;
writeln ('Ââåäèòå n');
readln (n);
for i:=1 to n do 
s:=s+i*i;
writeln ('s=',s);
end.