Известен факториал числа n. Найти это число (программа Паскаль)

program faktorial;
uses crt;
var n: real;
i: integer;
begin
read (n);
i:=1;
repeat
n:=n/i;
i:=i+1;
until n=1;
write (i-1);
end.