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

Var a:integer;BeginReadln (a); if a>3000 then writeln('Взять кислородный баллон')else writeln ('Взять больше воды');end.