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.