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

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