Расчитайте стоимость проезда всей семьи в авто если извесна стоимость билета в междугороднем автобусе.Стоимость билета в экспрессе на 50% дороже чем в междугороднем автобусе а в маршрутке на 60% дороже чем на экспрессе Требуется приобрести 2 полных билета и два детских со скидкой 50%

Var
  bus, express, taxi: real;

begin
  Write(Введите стоимость автобусного билета ->);
  Readln(bus);
  bus := 3 * bus; { стоимость на семью }
  express := 1.5 * bus;
  taxi := 1.6 * express;
  Writeln(Автобус- , bus:0:2, , экспресс- , express:0:2, , такси- , taxi:0:2)
end.

Тестовое решение:

Введите стоимость автобусного билета ->642.50
Автобус- 1927.50, экспресс- 2891.25, такси- 4626.00