В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салоне экономического класса и одна четверть мест

Первый этап
Исходные данные:
(40-а) - количество проданных авиабилетов бизнес-класса по цене х рублей за билет;
(120-b) - количество проданных авиабилетов эконом-класса по цене х/2 рублей за билет.
Требуется найти:
S - общую сумму, полученную компанией от продажи билетов за рейс.

Второй этап
Соотношения, связывающие исходные данные и результат:
Для нахождения S можно вычислить значение следующего выражения:
S := (40-а)*x + (120-b)*x/2
Здесь a и b - величины целого типа, s - вещественного типа.

Третий этап
Блок-схема:

Четвертый этап
program z65;
var a, b: integer; S, x: real;
BEGIN
writeln ('Подсчёт суммы от продажи билетов');
write ('Введите количество непроданных билетов бизнес-класса: ');
readln (a);
write ('Введите количество непроданных билетов эконом-класса: ');
readln (b);
write ('Введите стоимость билетов в бизнес-классе: ');
readln (x);
S := (40-a)*x + (120-b)*x/2;
writeln ('Билетов продано на ', S , ' рублей');
END.

Пятый этап
Протестируйте программу при следующих исходных данных:

Шестой этап
Выполните расчеты при x=25743, a=12, b=3.
Результат: 2 226 769,5