Найти минимальное количество множителей используя цикл while - Pascal ABC

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

Найти минимальное количество множителей используя цикл while 1.5*2*2.5*3* ... , чтобы произведение оказалось больше некоторого числа N.

Решение задачи: «Найти минимальное количество множителей используя цикл while»

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

var k:integer;
    n,p,a:real;
begin
write('n>0 n=');
readln(n);
p:=1;
k:=0;
a:=1;
while p<=n do
 begin
  a:=a+0.5;
  p:=p*a;
  k:=k+1;
 end;
write('p=',p:0:1,' k=',k);
end.

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

Создаются три переменные: k, n и p, которые имеют тип integer, real и real соответственно.
Выводится сообщение «n>0 n=», где n - это переменная, которую пользователь должен ввести.
Переменная p инициализируется значением 1.
Переменная k инициализируется значением 0.
Переменная a инициализируется значением 1.
Запускается цикл while, который выполняется до тех пор, пока значение переменной p не превысит значение переменной n.
Внутри цикла переменная a увеличивается на 0.5.
Переменная p умножается на значение переменной a.
Переменная k увеличивается на 1.
После выхода из цикла значение переменных p и k выводятся на экран.