Var a:integer; begin writeln('Our burgers do not prepare you for the exam, but will learn to code'); writeln('Value of burgers:'); readln(a); case a of 1:writeln('Mineral water'); 2:writeln('Coca-cola bottle'); end; if a>=3 then writeln('One more burger'); end.<span>
Пример ввода: 10 Пример вывода: One more burger </span>