Ну как-то так у меня вышло на скорую руку
Ответ в файле:vvvvvvvvvvv
Если для 1.5л необходимо 30 грамм, значит для 1л. необходимо 20 грамм.
В программе будет умножать на 20.
var v, w: real; //Объявление двух переменных
begin //Начало
write('Литры чая = '); //Вывод сообщения
readln(v); //Ввод количества желаемых литров
w := v * 20; //Расчет количества сухого
writeln('Для ', v, ' л. чая, необходимо ', w, ' г сухого чая'); //Вывод результата
end. //Конец
11010010-11011011-11010101-11010011-11001001 =0
водитель с автобусом и остановкой
автобус с водителем пассажиром контролером
пассажир с автобусомостановкой билетом
контролер с билетом и пассажиром