Задача в 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.