Пожалуйста посчитайте решить. В Паскале, подробно

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