Дано 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.