Помогите пожалуйста,срочно! Дано 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.