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

Всё-таки по-своему))

Только на отрицательном числе будет врать))

Почему? знак "-"?

Можно сразу сделать абсолютное число и проблем не будет

Abs - можно. Знак "-" не отберется в четные и при вычитании из общего количества увеличит нечетные на 1.

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

begin

 var s := ReadInteger.ToString;

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

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

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

end.