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

Question

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

Answer 1

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