Faktorial

uses crt;
var
   n,hasilak:integer;

Function hitung(n:integer):integer;
var
   i,hasil: integer;
begin
   hasil:=1;
   for i:= 1 to n do
   begin
      hasil:=hasil*i;

   end;
   hitung:=hasil;
end;


begin
   clrscr;
   Write('n: ');readln(n);
   hasilak:=hitung(n);
   writeln(n,'! = ',hasilak);
   readln();
end.