Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. в каждый следующий день рождения он удваивал свой подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму дарил мне. напишите программу, подсчитывающую общую сумму всех денег, подаренных к -му дню рождения. формат входных данных на вход программе подается единственное число . это в паскале
i,s,k,n:integer;
begin
readln(n);
s:=0;k:=0;
for i:=1 to n do
begin
s:=2*s+i;
k:=k+s;
end;
write('Дядюшка подарил ',k,' долларов.');
end.