Program Second;
uses crt;
var n,s,a:integer;
begin
clrscr;
write('Vvedite posledovatelnost=');readln(n);
s:=0;
for a:=1 to n do
begin
S:=s+a*a;
end;
writeln('S= ',S);
readln;
end.