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

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