Viết chương trình tính

Viết chương trình tính: p=1*1/2*1/3*...*1/n; với n được nhập từ bàn phím?
​gợi ý :cho i chạy từ 1 đến n thì làm: p:=p*1/i;
Tui xem các bạn làm đúng ko tui sẽ cho 50 xu lưu ý giải sai tui ko chấm điểm tặng xu đâu?