Дано целое число N. Определите количество нечётных цифр в данном числе. (Pascal)

//PascalABC.Net var   n, k: integer; begin   readln(n);   while n > 0 do begin     inc(k, n mod 2);     n := n div 10   end;   writeln('Количество нечетных: ', k); end.