<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3>
begin
var s := ReadInteger.ToString;
var Четных := s.Where(c -> '02468'.Contains(c)).Count;
var Нечетных := s.Where(c -> '13579'.Contains(c)).Count;
Println('Четных', Четных, 'нечетных', Нечетных);
end.
Ответ:
Второе потому чтт оно замкнуто это и есть повторение