вот как-то так:
Код:
var
a:integer;
function fact(b:integer):integer;
var
c:longint;
i:integer;
begin
c:=1;
for i:=2 to b do begin
c:=c*i;
if c=b then break;
fact:=i+1;
end;
end;
begin
writeln ('Input the number');
readln (a);
writeln (a,' - fact - ',fact(a));
readln
end.