Задачка в ABC pascal; очень срочно помогоите пож

Мой богатый дядюшка на первый день рождения подарил мне 1 доллар. В каждый след др он удваивал свой подарок и прибавлял столько долларов

сколько мне исполнялось лет. Найдите и выведите на экран какая сумма будет подарена на N-ый день рождения. Значение N вводится с клавиатуры.

 

 

 

прошу составить полную программу с начала и до конца!!!

Program denuski;var a,N,c:integer;beginc:=1;Write('Введите номер дня рождения ');read(N);for a:=2 to N doc:=(c*2)+a;write('Cумма подаренная на ');write(N);write(' день рождения ');writeln(c,'$');end.