2. Составить программу к следующей задаче: "Американский дедушка, подарил своему внуку на 1 день рождения 1$. Каждый следующий день рождения он удваивал свой предыдущий подарок и прибавлял к нему сколько долларов, сколько лет исполнялось внуку. Определите:  сколько долларов получит внук на 18-ый день рождения;  сколько долларов получил он за 18 лет"

program zz1;

var n, i, s:integer; / / вводим переменные целого типа

begin

s:=0; / / задаем начальное значение для суммы

n:=1; / / задаем начальное значение для подарка дедушки

for i:=1 to 18 do / / организуем цикл на 18 лет

begin

s:=s + n; / / получаем сумму подарка

n:=n * 2 + i; / / увеличиваем подарок, удвоив предыдущий подарок и прибавив к нему столько долларов, сколько внуку лет

end;

write (s, 'долларов получит внук на 18-летие '); / / выводим ответ

end.