Cho S = 1/1 + 1/2 + 1/3 +.....+ 1/101. Em hãy viết chương trình pascal sử dụng câu lệnh lặp While...do hoặc for....do để tính tổng S

Các bạn có thể giúp mình làm bài tập đc ko ạ????
BT: Cho S=1/1+1/2+1/3+.....+1/101. Em hãy viết chương trình pascal sử dụng câu lệnh lặp While...do hoặc for....do dderr tính tổng S.
Các bn giải hộ mk vói ạ
Cảm ơn ạ