bahasa pemograman pascal nilai faktorial bilangan

program  Nilai_Faktorial_Bilangan ;
uses crt ;
var
         f, h, i : integer;
begin
         clrscr ;
         write('Input nilai f : '); readln(f);
         if f = 0 then h := 1
         else h := 1 ;
         for i := 1 to f do
         h := h * i;
         write('Nilai faktorialnya adalah = ',h);
         readln ;
end.