Известен факториал некого числа m. Нужно отыскать начальное число m. Формат

Вот, на С++, можешь немножко подогнать под себя

include lt;iostreamgt;

using namespace std;

int main()

   setlocale(0,"");

   int numb, data=0, i=1;

   coutlt;lt;"Введите число: ";

   cingt;gt;numb;

   data=i;

   while(numb!=data)

       if(datagt;numb)

           coutlt;lt;"Не существует такового числа, факториал которого равен "lt;lt;numblt;lt;endl;

           break;

       i++;

       data*=i;

   if(data==numb)

       coutlt;lt;endllt;lt;"Итог вычислений: "lt;lt;ilt;lt;endl;

   system("pause");

   return 0;

var

 fa: real;

 i, m: integer;

begin

 readln(fa);

 i := 1;

 while fa lt;gt; 1 do

 begin

   fa := fa / i;

   m := i;

   i += 1;

 end;

 writeln(m);

end.