Mình không có phần mềm Pascal đề thử nên mình viết thuật toán thôi , bạn dựa vào để viết chương trình nhé. Mình viết dạng tổng quát cho N số tự nhiên đầu tiên.
Bước 1. Nhập N và dãy số a1,...,aNa1,...,aN
Bước 2. i←0i←0 , P←1P←1
Bước 3. i←i+1i←i+1
Bước 4. 4.1 Nếu i>Ni>N thì kết thúc thuật toán và đưa ra kết quả
4.2 P←P⋅iP←P⋅i rồi quay lại bước 3