Решите пж!!!даю 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.

Var
a,b,x,k,s:integer;
begin
 write('Csena biznes bileta: '); readln(x);
 write('Write a: ');readln(a);
 write('Write b: ');readln(b);
 s:=(120-b)*x/2;
 s:=s+(40-a)*x;
 write(s);
 readln
end.