Вpascal , . дано натуральное число n . найти наибольшее число , факториал которого не превосходит n

Var fa,i,n:integer;beginReadln(n);fa:=1;while fa < n do begini:=i + 1;fa:= fa * i;write(fa:4);end;writeln;write(i-1);end.