Сколько первых чисел последовательности 2,4,6,8… чтобы их сумма превысила 1000- Pascal(Паскаль)

uses
  CRT;

var
  i: integer;
  sum: real;

begin
  ClrScr;
  i := 0;
  repeat
    inc(i);
    sum := sum + (i * 2);
  until sum >= 1000;
  write('kol:=', i);
  readkey

end.