Дано натуральное число n. Найти количество нечётных цифр числа

var
    n, c: integer;
begin
    ReadLn(n);
    c := 0;
    while (n > 0) do
    begin
        if n mod 2 = 1 then c := c + 1;
        n := n div 10;
    end;
 
    WriteLn(c);
    ReadLn;
end.

var
  n: longint;
 
function f(x: longint): byte;
var
  k: byte;
begin
  k := 0;
  if x <> 0 then
    while x > 0 do
    begin
      if Odd(x mod 10) then
        k := k + 1;
      x := x div 10
    end;
  f := k;
end;
 
begin
  Write('N = '); ReadLn(n);
  WriteLn('Количество нечетных цифр = ', f(n));
  ReadLn
end.

var
  n: longint;
  k: byte;
 
procedure p(x: longint; var t: byte);
begin
  if x <> 0 then
    while x > 0 do
    begin
      if Odd(x mod 10) then
        t := t + 1;
      x := x div 10
    end;
end;
 
begin
  Write('N = '); ReadLn(n);
  p(n, k);
  WriteLn('Количество нечетных цифр = ', k);
  ReadLn
end.