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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.