program raf105;
var a,b,X,Y:integer;
begin
write('Введите число: ');
readln(a);
while a>0 do
begin
b:= a mod 10;
a:= (a-b) div 10;
if (b mod 2 = 0) and (b<>0)
then X:= X+1
else if b<>0 then Y:= Y+1;
end;
if X>Y
then writeln('В числе больше чётных цифр')
else if X<Y
then writeln('В числе больше нечётных цифр')
else writeln('Чётных и нечётных цифр в числе поровну');
end.
Написано на языке PascalABC.NET
