{* Задача 4 *}

Unit PASZ13494;
Interface
Implementation
Begin
 writeln('В течении месяца продавец доставлялна дом 4 л молока в день. В марте молоко стоило х руб за литр Спервого апреля цена молока увеличилась до [x+a] руб за литр Сколько надо заплатить продавцу за все доставленное молоко в конце апреля? Кол-во покупаемого молока осталось прежним');
End.

Program pasz13494;

Uses pasz13494.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  march   : real;
  april   : real;
  payment : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите стоимость отпускаемого молока в марте');
  readln(march);
  writeln('Введите стоимость отпускаемого молока в апреле');
  readln(april);
  payment := march * 4 * 31 + april * 4 * 30;
  writeln('Вы должны заплатить с 1-го марта по 30-е апреля включительно ', payment : 7 : 2, ' руб.')
End.