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

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

readkey;
end.