Вычислить факториал введенного числа (цикл for)

program lab6;
uses crt;
var n,i:integer;
    faсtorial:double;
begin clrscr;
writeln('Введите число');
readln(n);
factorial:=1;
for i:=1 to n do factorial:=factorial*i;
writeln('Факториал=',factorial);
writeln('press Enter to continue');
readln;
end.

var
  set1:set of byte;
  set2:set of 0..9;
  n:integer;
 
begin
 write('Ââåäèòå ÷èñëî n: '); readln(n);
 while n<>0 do begin
   set1:=set1 + [n mod 10];
   n:=n div 10;
 end;
 set2:=set1-set2;
 write(' ýòîì ÷èñëå íåòó ñëåäóþùèõ öèôð: ');
 for n:=0 to 9 do
   if not (n in set2) then write(n,' ');
 writeln;
 readln;
end.

var
 N, i: integer;
 se: set of byte;
Begin
 write('Введите: ');
 readln(N);
 while N<>0 do
  Begin
   se:=se+[N mod 10];
   N:=N div 10;
  End;
 For i:=0 to 9 do
  if not (i in se) then write(i,' ');
 writeln;
End.