Написать программу нахождения числа, если известен факториал числа на Паскале

Var A,B:real;BeginB:=0;Write('A! = ');ReadLn(A);if A = 0 then Write('A = ',1) else BeginWhile A/(B+1)<>1 doBeginB:=B+1;A:=A/B;End;Write('A = ',A)EndEnd.