услуги телефонной сети оплачиваются по следующему правилу: за разговоры до а минут в месяц – в рублей за минуту, а разговоры сверх установленной нормы оплачиваются из расчета с рублей за минуту. требуется написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

Var a,d:integer; b,c,p:real;
begin
write('A=');readln(a);
write('B=');readln(b);
write('C=');readln(c);
write('Разговоров за месяц: ');readln(d);
if d<=a then p:=b*d else p:=b*a+c*(d-a);
writeln('Плата за телефон=',p:5:2);
end.

Пример:
A=20
B=1.70
C=1.90
Разговоров за месяц: 25
Плата за телефон=43.50