Pascal abc, дано целое число n (> 0). найти сумму n2 + (n + 1)2 + (n + 2)2 + (целое число). решить через repeat

Var
  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.