Question

Pascal ABC, ПОМОГИТЕ РЕБЯТ
НУЖНО РЕШИТЬ ЧЕРЕЗ WHILE
Дано целое число N (> 0). Найти сумму
N2 + (N + 1)2 + (N + 2)2 + ... (целое число).

Answer 1

var
  n, i, s: integer;

begin
  readln(n);
  s := 2 * n;
  i := 1;
  while i <= n do
  begin
    s := s + 2 * (n + i);
    i := i + 1;
  end;
  writeln(s);
end.