Рассчитать окончательную сумму оплаты за использованный интернет-трафик - PascalABC.NET

Формулировка задачи:

Помогите, пожалуйста, решить данную задачу.

Мобильный оператор предоставляет интернет-трафик. Абонентская плата составляет K рублей для получения интернет-трафика объемом V ГБ. 1 МБ сверх включенного интернет-трафика оплачивает по цене P рублей. Напишите программу, позволяющую рассчитать окончательную сумму оплаты за использованный интернет-трафик.

Спасибо.

Решение задачи: «Рассчитать окончательную сумму оплаты за использованный интернет-трафик»

Листинг программы

const
  вГигобайтеМегабайт = 1024;
begin
  var K := ReadLnInteger('K =');
  var V := ReadLnInteger('V =');
  var P := ReadLnInteger('P =');
  var трафик := ReadLnInteger('трафик составил (МБ) =');
  
  var сверхТрафика := трафик - вГигобайтеМегабайт * V;
  WriteLn('Полная сумма ' + (K + (сверхТрафика > 0 ? сверхТрафика * P : 0) ) + ' рублей');
end.

Объяснение кода листинга программы

Объявляются константы и переменные: — вГигобайтеМегабайт - константа, которая равна 1024 (количество мегабайт в одном гигабайте); — K, V, P, трафик - переменные для хранения значений, введенных пользователем.
Пользователю предлагается ввести значения: — K - количество рублей за один мегабайт сверхлимитного трафика; — V - количество гигабайт, за которое оператор связи предоставляет интернет-трафик; — P - стоимость одного гигабайта интернет-трафика; — трафик - количество использованного интернет-трафика в мегабайтах.
Вычисляется количество мегабайт сверхлимитного трафика: — сверхТрафика - значение переменной трафик, уменьшенное на количество мегабайт, соответствующее V (так как предоставленный трафик уже оплачен).
Выводится сообщение с окончательной суммой оплаты: — WriteLn('Полная сумма ' + (K + (сверхТрафика > 0 ? сверхТрафика * P : 0) ) + ' рублей' - выводится сообщение, в котором: — K - добавляется к стоимости за один мегабайт сверхлимитного трафика; — (сверхТрафика > 0 ? сверхТрафика * P : 0) - если сверхТрафика больше нуля (то есть, был превышен лимит), то к сумме добавляется стоимость P за каждый мегабайт сверхлимитного трафика, иначе это значение равно нулю. — WriteLn - выводит сообщение на экран. — + ' рублей' - добавляется текст рублей к выводимому значению, чтобы указать, что это стоимость в рублях.