Viết lại đoạn chương trình bằng cách sử dụng lệnh While_Do

- mấy anh chị giải giúp em câu 4 với
viết lại đoạn chương trình sau bằng cách sử dụng câu lệnh while-do
S:=0
For i:=1 to n do S:=S+i;