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

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