Nслагаемых вида (i+1)вквадрате, где i=1, n

Программа на паскале:

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.