Пожалуйста посчитайте пожалуйста решить вопрос

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
Нечетных больше