составте программу для определения суммы денег получаемой авиакомпанией от продажи билетов на рейс из лондона в нью йорк

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.