pascal

Помогите пожалуйста перевести из pascal в c++ (Спасибо за ранее) var I, S:integer; begin I:=1; S:=1; while S<=100 do begin I:=I+1; S:=S*2+I; end; Writeln(I) end.

Вообщем нет времени расписывать зачем мне это и для чего! Кто знает Pascal вот задачки,очень легкие,если найдутся такие кто решит,отблагодарю денежкой! Миллионы не обещаю но на пару бутылок пива и три дошика хватит! Ответ нужен с полным решением,чтобы запустить в Pascal и все просчитывал.