Расчитайте стоимость проезда всей семьи в авто если извесна стоимость билета в междугороднем автобусе. Стоимость билета в экспрессе на 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