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<=100) do

Begin

S:=S+n;

n:=n+1;

End;

Writeln( Tong la: ,S);

Readln

End.

program ctdt;
uses crt;
var i,tong:integer;
(*-----------------------*)
begin
clrscr;
tong:=0;i:=0;

while tong<=100 do
begin
i:=i+1;
tong:=tong+i;
end;

readln;
end.