Сравнить среднее арифметическое

var a,e,x,y,b:real; i,m,s,k,f:integer;
begin
       writeln('vvedite kolichestvo chisel');
       readln(m);
for i:=1 to m do begin
writeln('vvedite ',i,' chislo');
readln(a);
b:=a mod 2;
if b=0 then begin
s:=s+a;
k:=k+1;
end;
if b<>0 then begin
e:=e+a;
f:=f+1;
end;
end;
x:=s/k;
y:=e/f;
writeln('x=',x:4:2);
writeln('y=',y:4:2);
end;
if x>y then begin
writeln('x>y');
end;
if x<y then begin
writeln('x<y');
end;
readln
end.

const
  N=5;
var
  sum1,sum2,x:real;
  i:integer;
begin
  sum1:=0;
  sum2:=0;
  for i:=1 to N do
  begin
    write('a',i,':=');
    readln(x);
    if odd(i) then//если надо четных(нечетных) по значению, то писать odd(x)
      sum1:=sum1+x
    else
      sum2:=sum2+x;
  end;
  if sum1/N>sum2/N then
    writeln('Ñð.àð. íå÷åòíûõ áîëüøå')
  else
    if sum1/N<sum2/N then
      writeln('Ñð.àð. ÷åòíûõ áîëüøå')
    else
      writeln('Îíè ðàâíû')
end.

if odd(i) then

if i mod 2 <> 0 then

var c,d,e,dk,ek,d1,e1:real;  a,b,i:integer;
begin
     writeln('Vvedite 4icla, v promezhutke mezhdu kotorimi nuzhno vi4islit');
     readln(a,b);
     dk:=0;
     ek:=0;
     d1:=0;
     e1:=0;
     d:=0;
     e:=0;
     for i:=a to b do
              begin
              C:=i mod 2;
     if c=1 then
     begin
     dk:=dk+1;
     d1:=d1+i;
     end;
         if c=0 then
         begin
         ek:= ek+1;
         e1:= e1+i;
         end;
             end;
     d:= d1/dk;
     e:= e1/ek;
     writeln('Srednee arifmeti4eskoe ne4etnih 4isel = ',d) ;
     writeln('Srednee arifmeti4eskoe 4etnih 4isel = ',e) ;
end.