Складіть програму, яка виводить на екран рекламу гамбургерів і пропонує користувачеві зробити замовлення. Програма приймає замовлення й повідомляє користувача про те, який безкоштовний сюрприз він отримає. До одного замовленого гамбургера додається пляшка мінеральної води; до двох — пляшка кока-коли; до трьох або більше — ще один гамбургер.

//Pascal ABC.NET v3.0 сборка 1111

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