Вывести на экран все нечетные числа от a до b и подсчитать их среднее арифметическое

var
a,b,i,s,k:integer;
begin
  readln(a,b); s:=0; k:=0;
  for i:=a to b do
    if odd(i) then begin
      write(i,' ');  s:=s+i; k:=k+1;
    end; writeln;
  write('Среднее арифметическое = ',s/k:0:4);
  readln;
end.

var
a,b,s:real;
i,k:integer;
begin
  readln(a,b); s:=0; k:=0;
  for i:=round(a) to round(b) do
    if odd(i) then begin
      write(i,' ');  s:=s+i; k:=k+1;
    end; writeln;
  write('Среднее арифметическое = ',s/k:0:4);
  readln;
end.

if odd(i) and (i<b) then begin

var
a,b,s:real;
i,k:integer;
begin
  readln(a,b); s:=0; k:=0;
  for i:=round(a) to round(b) do
    if odd(i) and (i<b) and (i>a) then begin
      write(i,' ');  s:=s+i; k:=k+1;
    end; writeln;
  write('Среднее арифметическое = ',s/k:0:4);
  readln;
end.

var
  a, b, s: real;
  i, k, j: integer;
 
begin
  readln(a, b);s := 0;k := 0;
  if round(a) - a < 0
    then j := round(a) + 1
  else j := round(a);
  for i := j to trunc(b) do
    if odd(i) then begin
      write(i, ' ');s := s + i;k := k + 1;
    end;writeln;
  write('Среднее арифметическое = ', s / k:0:4);
  readln;
end.

  while a<=b do begin
    Write(' ',a:0:0); a:=a+2;
  end;

if a>b then begin t:=a; a:=b; b:=t; end;
{ теперь a и b -- по возрастанию }

var
  a, b, s: real;
  i, k, j: int64;
 
begin
  readln(a, b);s := 0;k := 0;
  if b > 0 then
  begin
    if round(a) - a < 0
      then j := round(a) + 1
    else j := round(a);
    for i := j to trunc(b) do
      if odd(i) then begin
        write(i, ' ');s := s + i;k := k + 1;
      end
  end
      else
  begin
    if round(a) + a > 0
      then j := round(a) + 1
    else j := round(a);
    for i := j to trunc(b) - 1 do
      if odd(i) then begin
        write(i, ' ');s := s + i;k := k + 1;
      end;
  end;
  writeln;
  write('Среднее арифметическое = ', s / k:0:4);
  readln;
end.