С клавиатуры вводится число, состоящее не более чем из 200 цифр. Найти кол-во нечетных цифр данного числа

var    a, b, c, s: integer;                  // объявляем переменные целочисленного типа.begin    write (\'Введите число:\');       // вывод строки на экран.    read(a);                               // считываем число, введенное с клавиатуры.    c:= a;                                 // запоминаем введенное число в переменной с.       while a > 0 do                  // начало цикла.         begin            b := a mod 10;                       // определяем последнюю цифру числа.              if (b mod 2 > 0) then            // проверяем четность цифры.              s:= s + 1;                           // считаем кол-во нечетных цифр.             a := a div 10;                       // удаляем последнюю цифру из числа.         end;   writeln (\'Количество нечетных цифр в числе \', c ,\'равно \', s);     // вывод строки на экран.end.