Решить задачу в цикле for или while через Pascal N^2+(n+1)^2+(n+2)^2+...+(2n)^2

Question

Решить задачу в цикле for или while через Pascal
N^2+(n+1)^2+(n+2)^2+...+(2n)^2

Answer 1

1. Современное решение

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('S=',SeqGen(n+1,i->Sqr(n+i)).Sum)
end.

Пример
n= 5
S=355

2. Примерно так часто учат в школе

var
  s,i,n:integer;

begin
  Write('n= ');
  Read(n);
  s:=0;
  for i:=0 to n do
    s:=s+Sqr(n+i);
  Writeln('S=',s)
end.

Answer 2

Var i, n, res: integer;
begin
res := 0;
write( 'n = ' );
readln(n);
for i := 1 to n do
  res := res + (( n + i ) * ( n + i ));
res := res + n * n;
writeln( res );
end.