Складіть програму, яка виводить на екран рекламу гамбургерів і пропонує користувачеві зробити замовлення. програма приймає замовлення й повідомляє користувача про те, який безкоштовний сюрприз він отримає. до одного замовленого гамбургера додається пляшка мінеральної води; до двох — пляшка кока-коли; до трьох або більше — ще один гамбургер.
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.
Пример ввода:
10
Пример вывода:
One more burger