Question

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

Answer 1

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