Viết phương trình Pascal để tính tích: P=1*2*3*4*…*N. Với N là số nguyên nhập từ bàn phím. Sử dụng lệnh lặp với số lần chưa biết trước

Viết phương trình Pascal để tính tích: P=1*2*3*4*…*N. Với N là số nguyên nhập từ bàn phím. Sử dụng lệnh lặp với số lần chưa biết trước.
Mong mọi người giúp