pascal : program mencari faktorial

ok, karena ini entri PERDANA saya, jadi maaf kalo bahasanya sedikit kurang di mengerti.

ok langsung saja ke permasalahannya :

faktorial itu sebenarnya saya kurang mengerti definisinya tapi kurang lebih contohnya seperti ini :
5! = 5x4x3x2x1 dan 6! = 6x5x4x3x2x1, seperti itulah dia.

ini dia list scriptnya :


var a,b:integer;
begin
while not eof do begin
read(a);
b:=a;
while b>1 do begin
b:=b-1;
a:=a*b;
end;
writeln(a);
end;
end.

karena untuk mencari faktorial mengalinya harus berkali-kali maka harus menggunakan LOOPING. Looping yang saya maksud adalah di bagian "while" ke bawah sampai  bagian "end;".

b:=b-1;


a:=a*b;

perkalian bilangan ini akan dilakukan sampai NILAI B sudah tidak lagi lebih dari 1, dan setelah nilai B di kurangi 1x, maka nilai B yang sudah berubaha tadi  langsung di kalikan dengan nilai "a". kemudian kembali lagi ke atas ke bagian

b:=b-1;

kemudian turun kebawah ke bagian

a:=a*b

begitu seterusnya seperti yang sudah di jelaskan tadi sampai nilai B>1.

dan setelah sub-program "while" selesai maka program akan langsung menulis nilai "a" hasil dari eksekusi sub-program "while". oh, yah pada bagian paling atas setelah begin awal :

while not eof do begin

hanya untuk agar setelah memasukkan input dan di enter tidak akan langsung keluar dari programnya (biasanya setelah memasukkan semua input dan di enter programnya langsung keluar dan untuk melihat outputnya harus di compile ulang)

ok, sekian