Пожалуйста посчитайте пж!!!даю 45 поинтов(программа паскаль)

В автобусе 160 пассажиров, значит 120 мест в салоне экономического класса, а 40 мест в салоне бизнес-класса,
120 - b -- распроданные билеты в салоне эконом-класса
40 - a -- распроданные билеты в салоне бизнес-класса
(40 - а) * х = выручка от продажи билетов бизнес-класса
(120 - b) * x/2 = выручка от продажи билетов эконом-класса

Program bus;
var x, a, b:integer;
    sum:real;
begin
  readln(x, a, b);
  sum:=(40 - a) * x;
  sum:= sum + (120 - b) * x / 2;
  write(sum);
end.