Дано целое число N(N>0). Найти сумму 1+(1+N)^2+(2+N)^2+....+(N+N)^2
так можно короче)
begin var n := ReadInteger('n='); PrintLn('S=', 1 + Range(1, n).Select(i -> sqr(i + n)).Sum); end.
Var S:real; N,i:integer; Begin Write('N = '); ReadLn(N); S:=1; For i:= 1 to N do S:=S+Sqr(i+N); WriteLn('S = ',S); End.