Programalama > PASCAL

uses crt;
var
   sayi:LongInt;
function faktoriyel( n:Integer):Integer;
     var
       fakt,i:Integer;
     begin
       fakt:=1;
         for i:=1 to n do
      begin
        fakt:=fakt*i;

      end;
      faktoriyel:=fakt;
      end; 
        begin
          clrscr;
           Textcolor(11);
           write ('Bir Say Giriniz..: '); readln(sayi);
           Textcolor(12);
           write (faktoriyel(sayi));
          readln;
        end.