a/
Program BTH;
Uses Crt;
var s,n,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
s:=1;
For i:=1 to n do
Begin
s:=s*i;
end;
Writeln('Tong day so trong day la: ',s);
readln;
end.
b/
Program BTH;
Uses Crt;
var s,n,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
s:=1;
i:=1;
While i<=n do
Begin
s:=s*i;
i:=i+1;
end;
Writeln('Tong day so trong day la: ',s);
readln;
end.