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

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

var d,sum,n:integer;

begin

Writeln(‘введите n’);

Readln(n);

d:=1;

sum:=1;

for i:=2 to n do

begin

d:=d*2+i;

sum:=sum+d;

end;

writeln(sum);

end.