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

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.