Viết phương trình pascal sử dụng câu while do và for do

pascal
câu 1: while do va for do (viết chương trình tính tổng)
a, S= 1+2+3+...+n
b, S=1+1/2+1/3+....+1/n
c, S=1+1/2+1/3+....+1/(n+1)
trong đó n là số nguyên được nhâp từ bàn phím