Программа на паскале:
Program xxx;
Var i, n, s : integer;
begin
write ('введите N =' );
readln (n);
s:=0;
for i:=1 to n do
s:= s+ sqr(i+1);
writeln ('сумма =' , s);
readln
end.
