ПОМОГИТЕ пожалуйста,очень СРОЧНО, в паскале с 3 циклами и комментариями While Repeat For Дано целое число N (> 0). Найти сумму N2 + (N + 1) 2 + (N + 2) 2 + ... (целое число)

// Цикл whilevar  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.//цикл Repeatvar  n, i, s: integer;begin  readln(n);  s := 2 * n;   i := 1;  repeat     s := s + 2 * (n + i);    i := i + 1;  until i > n;  writeln(s);end.// Цикл forvar  n, i, s: integer;begin  readln(n);  s := 2 * n;   for i:=1 to n do     s := s + 2 * (n + i);  writeln(s);end.