Program faktorial (Pascal)

rogram faktorial; uses wincrt; var i,N,jumlah :integer; coba :char; begin coba :='y'; while coba ='y' do begin jumlah:=1; write('inputkan suatu nilai : '); readln(N); write('faktorial dari ',N,' adalah : '); for i:=2 to N do begin jumlah:=jumlah*i; end; writeln(jumlah); write('coba program lagi?[y/t]');readln(coba); if coba ='t' then coba:='t'; end; readln; end.