з21

const n=10;

var

  a: array [1..10] of integer;

  i, k , l: integer;

begin

  writeln ('Введите элементы массива:');

  for i:=1 to n do read (a[i]);

  for i:=1 to n do

   begin

     if (a[i] mod 2 = 0) then k:=k+1

     else l:=l+1;

   end;

  if (k>l) then writeln (k, '>', l, ' - четных чисел в массиве больше')

  else if (k<l) then writeln (k, '<', l, ' - не четных чисел в массиве больше')

    else writeln (k, ' = ', l, ' - четных и не четных чисел в массиве равное количество');

end.