Напишите программу на PascalABC для решения задачи: мальчик решил накопить деньги. В первый месяц он отложил a рублей, а каждый следующий месяц он откладывал на d рублей больше, чем в предыдущий. Сколько рублей мальчик накопит за n месяцев?​

ОТВЕТ:

Var  a, d, n, i, otv: integer;

begin

  read(a,d,n);                                - ввод всех значений

  otv:=a;                                        - в переменную где будет храниться

  for i:=1 to n do                              ответ записываем начальный взнос

  begin

     a:=a+d;                                     - увеличиваем в цикле взнос

     otv:= otv + (a);                         - добовляем взнос к нашему ответу

  end;

  writeln(otv);                                 - выводим ответ

end.