{* Задача 575 *}

Unit ZADACH575;
Interface
Implementation
Begin
 writeln('За год квартплата повышалась дважды. Первый раз на 30%, а второй на 40%.Год назад семья Березовских платила квартплату 80 рублей в месяц. Сколько они платят сейчас');
End.

Program zadach575;

Uses zadach575.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Предопределенные *}
  p = 80;
Var {* В работе нам потребуются переменные: *}
  op : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  op := p + p*0.3 + (p + p*0.3) * 0.4;
  writeln('Оплата в месяц ', op : 2:2, ' у.ед.');
  readkey; {* Нажмите любую клавишу *}
End.