Algoritma mencari bilangan faktorial

Berikut adalah algoritma bilangan factorial dalam Bahasa pascal :

write('Masukkan Angka : '); read(N);
       if (N=0)or(N=1) then
             faktorial:=1
             else
               begin
                 faktorial:=N;
                 for i:=(N-1) downto 2 do
                   faktorial:=faktorial*i;
               end;
write(N,'! adalah ',faktorial);