Если высота горы больше 3000 метров взять кислородный Болон иначе возьми побольше воды Паскаль срочно
Var vysota:integer; begin read(vysota); if(vysota>3000) then write('Возьми баллон') else write('Возьми хавки'); end. //тупая задача особенно на Паскале