Factorial

 uses wincrt;
   var n,i  : byte;
       total: longint;

   function fakto(n: byte): longint;
   var i: byte; hasil: longint;
   begin
     hasil:=1;
     for i:= 1 to n do
     hasil:= hasil*i;
     fakto:= hasil;
   end;
     begin
       write('masukan nilai= ');
       readln(n);
       total:=0;
       write(n,'! = ');
       for i:= n downto 1 do
           begin
           if i= 1 then write(i, '! ')
           else
           write(i,'! + ');
           total:=total+fakto(i);
           end;
       writeln;
       writeln('total faktorial = ',total);    
    end.