Tính giai thừa N!

PROGRAM CT40;
USES crt;
VAR i,x: BYTE;
N: LONGINT;
BEGIN
Writeln('Chuong trinh tinh giai thua N! ');
Write('Ban muon tinh giai thua cua so : '); Readln(x);
N:=1;
FOR i:=1 TO x DO N:=N*i;
Writeln('Gia tri cua ',x,'! = ',N);
Readln
END.

Download: http://www.mediafire.com/?i4bav07pf6gi37f