Написать программу подсчитывающую кол-во чётных и нечётных цифр в числе. Только

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

begin

 var s := ReadInteger.ToString;

 var Четных := s.Where(c -gt; '02468'.Contains(c)).Count;

 var Нечетных := s.Where(c -gt; '13579'.Contains(c)).Count;

 Println('Четных', Четных, 'нечетных', Нечетных);

end.