Напишите программу в дельфи которая переводит число из десятичной в факториальную систему счисления.

Консольное приложение:
var n,k,i:integer; m,f:string;
begin
write('n = ');
readln(n);
k:=n;
f:='';
i:=1;
while k>0 do
 begin
 i:=i+1;
 str(k mod i,m);
 f:=m+f;
 k:= k div i;
 end;
writeln('f = ',f);
end.

Пример:
n = 100
f = 4020