Дано натуральное число x. Верно ли, что в его записи одинаковое число чёрных и не че

// определение числа чётных и нечётных цифр в числе var n, a, b : integer; begin a:=0; //чётные b:=0; //нечётные readln (n);     if n<0 then         n:=-n; // уничтожение знака числа     repeat         if ((n mod 10) mod 2<>0) then           a:= a+1         else           b:= b+1;         n:= n div 10; // удаление последней цифры числа     until n=0;     writeln ('Чётных - '+b);     writeln ('Нечётных - '+a); end.