uses crt-
var march,april,payment:real-
begin-
clrscr-
writeln(‘Введите стоимость отпускаемого молока вмарте’)-
readln(march)-
writeln(‘Введите стоимость отпускаемого молока в апреле’)-
readln(april)-
payment:= march * 4* 31 + april * 4 * 30-
writeln(‘Вы должны заплатить с 1-го марта по 30-еапреля включительно ‘,payment:7:2, ‘ руб.’)
end.