Написать программу на Pascal


Пользователь вводит число. Сколько последовательно расположенных натуральных чисел необходимо, что бы их произведение стало больше введенного пользователем числа.

благодарю

Var      a,b,c:integer;Beginb:=1;c:=1;  Write('Введите число: '); readln(a);    while (b<=a) do      begin      c:=c+1;      b:=b*c;       end;  Writeln('Ответ: ',c);End.