Определить, сколько надо заплатить продавцу за доставленное молоко в конце апреля

В течении месяца продавец доставлялна дом 4 л молока в день. В марте молоко стоило х руб за литр С первого апреля цена молока увеличилась до [x+a] руб за литр. Сколько надо заплатить продавцу за все доставленное молоко в конце апреля? Количество покупаемого молока осталось прежним

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.