Viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 100. Giải nhanh giùm em nhờ ạ

program chuc_ban_hoc_tot;
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.