Если высота горы больше 3000 метров взять кислородный Болон иначе возьми побольше воды Паскаль срочно

varvysota:integer;beginread(vysota);if(vysota>3000) then write('Возьми баллон') else write('Возьми хавки');end.//тупая задача особенно на Паскале