Кто хорошо знает паскаль! ) написать на языке паскаль)) дано натуральное число. верно ли, что количество всех его цифр, есть четное число?

Var
  a, n: integer;
 
begin
  n := 0;
  read(a);
  while a > 0 do
  begin
    a := a div 10;
    n := n + 1;
  end;
  if(n mod 2 = 0) and (n <> 0) then write('Верно')
  else write('Неверно');
end.