Помогите пожалуйста!! Сколько сможете

Question

Помогите пожалуйста!!
Сколько сможете

---

Answer 1

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