Pascal. если число с клавиатуры попало в интервал до 0, вывести 0, если от 0 включительно до 18 то, вывести 1, во всех остальных случаях вывести 2.

Program a;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a < 0) then write('0')
else if ((a >= 0) and (a <= 18)) then write('1')
else write ('2');
end.