Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. в каждый следующий день рождения он удваивал свой прошлогодний подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму дарил мне. напишите программу, подсчитывающую общую сумму всех денег, подаренных к -му дню рождения. формат входных данных на вход программе подается единственное число . это в паскале

Var   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.

Var a: array [1..7, 1..8] of integer; i, j: byte; begin randomize; writeln('***массив***'); for i: =1 to 7 do  begin  for j: =1 to 8 do    begin    a[i,j]: = random(91)-20;     write(a[i, j]: 5);     end;   writeln;   end;   writeln;   writeln('***элементы четных столбцов***');   j: =2;   while j< =8 do    begin    write('столбец ', j, ': ');     for i: =1 to 7 do write(a[i, j]: 5);     j: =j+2;     writeln;     end; end.

Var i, a, k, sum : integer; begin k: =0;   for i: =100 to 999 do    begin    sum: =0;     a: =i;     while a> 0 do      begin      sum: =sum+(a mod 10);       a: =a div 10;       end;       if sum mod 5 = 0 then        begin        inc(k);         write(i: 5);         end;     end;     writeln;     writeln('количество чисел: ', k); end.