Program faktorial (Pascal)

Hasil

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.