Cho số nguyên dương N. In ra tích các số từ 1 đến N ( tích này trong toán học gọi là giai thừa của N kí hiệu toán nn học là N!) . In put: số nguyên dương N ; output :tích các số từ 1 đến N

var n,i,s:longword;

begin

write('nhap n:');readln(n);

for i:=1 to n do s:=s*i;

write('tich cac so tu 1 den n la:',s);

readln;

end.

___________________________________________________________

có j k hiểu thì hỏi nha :D