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

Question

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

Answer 1

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')<br>else write ('2');
end.