Составить программу имитирующюю работу автомата чай кофе чай 10 рублей, кофе 30 рублей

Program avtomat;
uses crt;
var x: string;
begin
clrscr;
readln(x);
if x = Чай then writeln (С вас 10 рублей);
if x = Кофе then writeln (С вас 30 рублей);
writeln(Спасибо!);
readkey;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.