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

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.