Вычисление f = N! описать каждым из трех вариантов оператора цикла- Pascal(Паскаль)

Uses CRT;
Var
     Fact:Integer;
     N,I:Integer;
Begin
        Clrscr;
        Write('N = ');
        Readln(N);
        Fact:=1;
        For I:=2 To N-1 Do
        Fact:=Fact*I;
        Write('Fact = ',Fact);
        Readln;
End.
 

program fact;
uses crt;
var i,n:integer;
    k:extended;{тип Longint позволяет определять факториал до 12}
begin
  clrscr;
  repeat
  write('Vvedite celoe chislo ot 3 do 1 8  n=');
  readln(n);
  until ( n>=3 ) and ( n < = 1 8 );
  k:=1;
  for i:=1 to n do
  k:=k*i;{считаем факториал, к=1*2*3*4...n}
  writeln('k=',k:0:0);
readln
end.
 

program faktorial;
var n,s,k: real;
begin
write('ВВедите n ');
readln(n);
s:=1; k:=1;
while k<n do
begin
k:=k+1;
s:=s*k;
end;
writeln('ответ ',s:0:1);
end.
 

program fac;
 var n:integer;
 
function fact(n:integer):integer;
begin
if n=1 then fact:=1
         else fact:=fact(n-1)*n;
end;
 
begin
write('vvedi chislo: ');
readln(n);
o:=fact(n);
writeln('otvet:', o);
read;
end.