Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до a минут оплачивается b рублей,а разговоры сверх нормы оплачиваются из расчета c руб за мин. напишите программу,вычисляющую плату за пользование телефоном. ,)

var

   a, b, c, n, s: real;

begin

   write('Введите значение A, B, C = ');

   read(a, b, c);

   write('Введите время разговора = ');

   read(n);

   if n < a then s := b

   else s := a * b + (n - a) * c;

   write('Плата за разговор = ', s, 'руб');

end.