Viết chương trình sử dụng câu lệnh lặp For - to - do

Viết chương trình sử dụng câu lệnh lập For...to...do để tính tổng S
S-1-1/2+1/3+....................+1/N