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

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