Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. В каждый следующий день рождения он удваивал свой прошлогодний подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму дарил мне. Напишите программу, подсчитывающую общую сумму всех денег, подаренных к -му дню рождения. Формат входных данных На вход программе подается единственное число . Это в паскале
program BirthdayGift;
var
i, age, total, gift: integer;
begin
total := 0;
readln(age);
for i := 1 to age do
begin
gift := 2 * total + i;
total := total + gift;
end;
writeln(total);
end.