Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу, указывающую, к какому дню рождения подарок превысит 100$.

program c1;

var dr,pod:

integer;

begin pod:=1;

dr:=1; while pod<=100 do begin pod:=(pod*2)+dr;

 dr:=dr+1;

end;

 write('Возраст= ',dr);

end.