Задача в Pascal , пожалуйста помогите. Дано натуральное число N . Найти наибольшее число , факториал которого не превосходит N .
Задача с циклами
Пожалуйста)

 program n_1; 
uses crt;
var i,r,n: integer;
begin readln(n); 
r:=1; 
for i:=1 to n do  //цикл for 
r:=r*i; writeln('For: ',r); 
i:=1; 
r:=1; while i<=n do      //цикл while 
begin 
 r:=r*i;   
inc(i); 
end; 
writeln('While: ',r); 
i:=1; 
r:=1; repeat               //цикл repeat 
 r:=r*i; 
inc(i); 
until i>n;
 writeln('Repeat: ',r);
end.