1 const
  2   a= 3;
  3   b= 71;
  4 type
  5   t= array of integer;
  6 procedure pro(ar:array of integer);
  7 var
  8   i,j,k :integer;
  9 begin
 10   k:=0;
 11   j:=0;
 12   for i:= a to b do begin
 13     if odd(i)=true then inc(k);
 14   end;
 15   setlength(ar,(k-1));
 16   for i:=a to b do begin
 17           if  odd(i)=true then begin
 18               ar[j]:=i;
 19               inc(j);
 20               write(ar[i], ' ');
 21           end
 22   end
 23 end;
 24 var
 25   mas:t;
 26 begin
 27   pro(mas);
 28 end.

const
  csize=1000;
type
  tarray=array [1..csize] of integer;
var
  a,b,n:integer;

procedure pro(var amas:tarray);
begin
  for n:=1 to csize do begin
    if a mod 2=0 then
      inc(a);
    amas[n]:=a;
    a:=a+2;
    if a>b then break;
  end;
end;

var mas:tarray;
    i:integer;
begin
  writeln('Введите начальное и конечное значение');
  readln(a,b);
  pro(mas);
  for i:=1 to n do
    write(mas[i],' ');
  readln
end.