Определить, сколько членов последовательности нужно перемножить, чтобы выполнилось условие - Turbo Pascal

Формулировка задачи:

Числовая последовательность заданная формулой () какое количество членов этой последовательности надо перемножить начиная с 1-го чтобы произведение превысило степени

Решение задачи: «Определить, сколько членов последовательности нужно перемножить, чтобы выполнилось условие»

Листинг программы

var n,i:integer;
    c,p:real;
begin
writeln(' ');
i:=1;
c:=9;
p:=c;
while p<=10000 do
 begin
  inc(i);
  c:=2*i*i*i+3/i+4;
  p:=p*c;
 end;
write('i=',i,' p=',p:0:2);
end.

Объяснение кода листинга программы

Создаются три переменные: n, i и c, которые являются целочисленными.
Переменная i инициализируется значением 1.
Переменная c инициализируется значением 9.
Переменная p инициализируется произведением c и i.
Запускается цикл while, который выполняется до тех пор, пока значение переменной p меньше или равно 10000.
Внутри цикла значение переменной i увеличивается на единицу.
Значение переменной c пересчитывается как 2 умножить на i, умножить на i и прибавить 3, деленное на i, плюс 4.
Значение переменной p пересчитывается как произведение значений переменных c и i.
После выхода из цикла значение переменных i и p выводятся на экран.
Конец программы.