Для натурального числа a составить программу подсчёта в нём кол-во нечётных цифр . ))

Var a, s,m: integer;
beginread(a); 
while a>0 do begin 
m:=a mod 10; 
if m mod 2 <>0 then s:=s+1; 
a:=a div 10; 
end; 
writeln(s);
end.