Составить программу, решающую следующую задачу: Клиент внес в банк R рублей. Каждый месяц эта сумма увеличивается на

program zz1;

var w, r, i: integer; // задаем переменные целого типа

begin write(\' введите сколько денег внес клиент в банк \'); // вводим с клавиатуры первое число read(r); write(\' введите насколько эта сумма увеличивается ежемесячно \'); // вводим с клавиатуры второе число read(w); for i := 1 to 3 do // организуем цикл, в котором будет три повторения r := r + w; // вычисляем сумму денег по формуле write(\' сумма денег у клиента через три месяца будет = \', r, \' рублей \' ); // выводим ответ end.