Последовательновводятся N целых чисел. Определить, каких посреди их чиселбольше:

Задачка НА ЦИКЛИЧЕСКИЕ Методы С ИЗВЕСТНЫМ КОЛИЧЕСТВОМ ПОВТОРЕНИЙ

Const
    N = 10; //твое число N
var
    i,c,nc,X: integer;
begin
for i:=1 to N do
begin
    READLN(X);
    if(X gt;= 0) then inc(c)
    else inc(nc);
end;
  
if (c gt; nc) then Writeln('четных больше')
else
begin
    if(c lt; nc) then Writeln('нечетных больше')
    else if(c = nc) then writeln('кол-во четных и нечетных чисел одинаково');
end;
end.