program tinh_tich;
uses crt;
var i,n:integer;
S: longint;
begin
clrscr;
write (' Nhap so n = '); readln (n);
S;=1;
for i:=1 to n do S:=S*i;
writeln ('Tich la :',S);
readln
end.
Nếu bạn cảm thấy hay là thích thì cho mình câu trả lời hay nhất nhé
Thành Thật Cảm ơn bạn
#Active Activity
#Mây