Факториал некоторого числа равен p. Найти это число (составить диалоговую программу)

var p,i,s:integer;
begin
write('Введите факториал числа p=');
readln(p);
i:=1;
s:=1;
while s<p do
*begin
* i:=i+1;
* s:=s*i;
*end;
if s=p then write('Это ',i,'!')
else write('Это не факториал')
end.

var a,b,mn,i,k:integer;
begin
repeat
writeln('Введите 2 числа, больших 10');
readln(a,b);
until(a>10)and(b>10);
if a<b then mn:=a else mn:=b;
k:=0;
for i:=mn to a*b-mn do
if (i mod a=0)and(i mod b=0) then
*begin
* k:=1;
* writeln(i);
*end;
if k=0 then write('Чисел,заданных условием нет')
end.

uses crt;
procedure fact;
var p,i,s:integer;
begin
clrscr;
write('Введите факториал числа p=');
readln(p);
i:=1;
s:=1;
while s<p do
 begin
  i:=i+1;
  s:=s*i;
 end;
if s=p then write('Это ',i,'!')
else write('Это не факториал');
readln
end;
procedure chisla;
var a,b,mn,i,k:integer;
begin
clrscr;
repeat
writeln('Введите 2 числа, больших 10');
readln(a,b);
until(a>10)and(b>10);
if a<b then mn:=a else mn:=b;
k:=0;
for i:=mn to a*b-mn do
if (i mod a=0)and(i mod b=0) then
 begin
  k:=1;
  writeln(i);
 end;
if k=0 then write('Чисел,заданных условием нет');
readln
end;
var w:char;
begin
repeat
clrscr;
writeln('Выберите действие');
writeln('1-факториал');
writeln('2-числа');
writeln('другое-выход');
readln(w);
case w of
'1':begin
    fact
    end;
'2':begin
    chisla
    end;
 else
  begin
   write('Программа завершена');
   exit;
  end;
end;
until not(w in ['1','2']);
end.