Помогите,пожалуйста,решить задачу!

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

Program chik;
var w,q,s,n,i,h:longint;
begin
s:=1;
q:=1;
h:=1;
w:=1;
while w<100 do
begin
q:=q+1;
h:=h+1;
s:=s*2+q;
w:=w+s;
writeln(w);
end;
writeln(w, ,h);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.