Program prog;var r, w: integer;beginwrite('Введите исходные данные: ');write('Величина вклада (руб.): ');readln(r);write('Ежемесячная величина дохода (руб.): ');readln(w);writeln('Сумма вклада по окончании трех месяцев ' + (r + w * 3)); writeln('Сумма вклада по окончании шести месяцев ' + (r + w * 6)); writeln('Сумма вклада по окончании шести месяцев ' + (r + w * 12));end.