Рассчитать плату за интернет из расчета, что абонентская плата 100 руб, трафик 25мб и за каждый мб превышения трафика оплатить 3 руб — Pascal(Паскаль)

uses crt;
var t    : integer;
    bill : real;
 
const abon_plata = 100.0; {абон плата}
      abon_limit = 25;    {кол-во МБ оплаченых абон плтой}
      abon_high  = 3.0;   {стоимость МБ сверх оплаченного лимита}
 
begin
  clrscr;
  write('трафик (в Мб) = ');
  readln(t);
 
  {абон плата}
  bill := abon_plata;
  if t > abon_limit then t := t - abon_limit else t := 0;
 
  if t>0 then
  begin
    { есть превышение}
    bill := bill + (t * abon_high);
  end;
 
  writeln('Нужно заплатить ',bill:2:2,' руб.');
  readln;
end.