// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToIntegers;
var n1:=a.Where(t->t.IsOdd).Count;
var n2:=a.Where(t->t.IsEven).Count;
if n1>n2 Then Writeln('Нечетных больше')
else
if n2>n1 then Writeln('Четных больше')
else Writeln('Четных и нечетных поровну')
end.
Пример
23 18 39 -15 27 48 -3 8
Нечетных больше