Чётность- нечётность

for i:=1 to n do if a[i] mod 2=0 then k=k+1 else s:=s+1;
if k>s then writeln ('четных больше') else writeln ('нечетных больше');

program try;
var
i,n,p,k,s :integer;
begin
writeln('Ââåäèòå êîëè÷åñòâî ÷èñåë');
readln(k);
i:=0; p:=0; n:=0;
writeln('Ââåäèòå ÷èñëà');
while i <> k do
begin
readln(s);
if odd(s) then
n:=n+1
else 
p:=p+1;
i:=i+1;
end;
if p>n then
writeln('Ïàðíûõ áîëüøå');
if n>p then
writeln('Íå ïàðíûõ áîëüøå');
if p=n then
writeln('×èñåë îäèíàêîâî');
end.

program е1;
const n=100;
var а:array[1..n] of integer; n,k,s :integer;
begin
writeln('Введите числа');
for 1 to n do read (a[i]);
for i:=1 to n do if a[i] mod 2=0 then k=k+1 else s:=s+1;
if k>s then writeln ('четных больше'); 
if k<s then writeln ('нечетных больше');
if k=s then wrireln ('количество четных и нечётных чисел одинаково')
end.

uses crt;
var n : integer;
    cnt_odd, cnt_even : integer;
 
begin
clrscr;
write ('Input number: ');
readln (n);
 
cnt_odd:=0;
cnt_even:=0;
 
while n<>0 do
  begin
    if (n mod 10) mod 2 = 0 then inc (cnt_even)
      else inc (cnt_odd);
    n:=n div 10;
  end;
 
if cnt_even>cnt_odd then writeln ('even>odd')
  else if cnt_even<cnt_odd then writeln ('odd>even')
  else writeln ('even=odd');
 
readkey;
end.