Имеется ряд чисел: 2, 4, 6, 8, … Вывести на экран номера таких двух подряд идущих элементов, произведение которых превышает N — Pascal(Паскаль)

{  

       Имеется ряд чисел:   2, 4, 6, 8, ... Вывести на экран номера
       таких двух подряд идущих элементов, произведение которых
       превышает N.
    ╔════════════════════╤══════════╤══════════╤════════╤════════╗
    ║                    │   1      │    2     │   3    │  4     ║
    ╠════════════════════╪══════════╪══════════╪════════╪════════╣
    ║      N             │  10      │   100    │ 8 999  │ 20 000 ║
    ╟────────────────────┼──────────┼──────────┼────────┼────────╢
    ║  Номера элементов  │  2, 3    │  5, 6    │ 47, 48 │ 71, 72 ║
    ╚════════════════════╧══════════╧══════════╧════════╧════════╝
}

program 7;
uses crt;
var
  i, a, b, n : Integer;
begin
ClrScr;
       Write('Введите число N: ');
       ReadLn(n);
       a := 0;
       i := 0;
       b := 0;
       repeat
        a := a + 2;
        Inc(i);
        b := a * (a + 2)
       until b >= n;
       WriteLn('Номера: ', i, ' и ', i + 1);
       WriteLn;
       Write('Press Enter');
       ReadLn
end.