Определить кол-во нечетных цифр в числе

var n, colishestvo:integer; begin colishevto:=0; read (n); while n>0 do if N mod 20 then begin colishestvo:=colishestvo+1; n div 10 end; writeln (colishestvo); end.