Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại

Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại. Giải nhanh giúp em

Program tinh_tong;

Uses crt;

Var S,n: integer;

Begin

clrscr;

S:=0;

n:=1;

While[S