составте программу для определения суммы денег получаемой авиакомпанией от продажи билетов на рейс из лондона в нью йорк если в самолете три четверти пассажиров имеют билеты первого класса стоимостью X р. за каждый. Остальные пассажиры имеют билеты второго класса, которые дешевле билетов первого класса на 20%.

program zz1;

var

w, r, s1, s2, r1: real; / / задаем переменные не целого типа

begin

write (' введите стоимость билета первого класса '); / / вводим с клавиатуры первое число

read (r);

write (' введите общее количество пассажиров '); / / вводим с клавиатуры второе число

read (w);

s1 : = (w * 3 / 4) * r; / / вычисляем сумму денег первого класса

r1 : = r * 20 / 100; / / высчитываем число пассажиров второго класса

s2 : = (w * 1 / 4) * r1; / / вычисляем сумму денег второго класса

write (' сумма денег = ', s1 + s2); / / выводим ответ

end.