дано число. определить чему равна сумма нечетных цифр в этом числе

vara,s: integer;beginreadln(a);s := 0;while a >0 dobeginif a mod 10 mod 2 <> 0 theninc(s, a mod 10);a := a div 10;end;writeln(s);end.