program IntervalCheck;varnumber: integer;beginwriteln('Введите число: ');readln(number);
if number < 0 thenwriteln('0')else if (number >= 0) and (number <= 18) thenwriteln('1')elsewriteln('2');end.
program IntervalCheck;
var
number: integer;
begin
writeln('Введите число: ');
readln(number);
if number < 0 then
writeln('0')
else if (number >= 0) and (number <= 18) then
writeln('1')
else
writeln('2');
end.