Помогите пожалуйста,срочно! Дано 3-значное число.Посчитать,сколько  в этом числе четных цифр.Проверить,принадлежит ли промежутку от 1 до 3 последняя цифра.(Паскаль)

var n, c: integer;    b: boolean; begin   write('Введите число: ');   readln(n);   writeln('Цифра справа в 1..3: ', (n mod 10) in [1..3]);   while (n>0) do begin     c := c + 1 - (n mod 2) ;     b := (n mod 10) in [1..3];     n := n div 10;   end;   writeln('Цифра слева в 1..3: ', b);   writeln('Четных цифр ', c); end.