Program First;
uses crt;
var n,s,a:integer;
begin
clrscr;
write('Vvedite posledovatelnost=');readln(n);
s:=0;
a:=1;
repeat
S:=s+a*a;
a:=a+1;
until a>n;
writeln('S= ',S);
readln;
end.