Program Targil;
Var Num,Sum:Integer;
Begin
Sum:=0;
Num:=0;
While Sum<=100 do
Begin
Num:=Num+1;
Writeln(Num);
Sum:=Sum+Num;
End;
Sum:=Sum+Num;
Writeln(Sum);
end.