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

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

End.