[Pascal] Neparne_2

program Axwell;
uses crt;
var
a,b,i,premenna :integer ;
begin
clrscr;
writeln ('Zadaj interval a-b');
readln(a);
readln(b);
premenna:= (b-a) div 2;
if (a mod 2)=1 then
  for i:=1 to premenna+1 do
    begin
    write(a,' ');
    a:=a+2;
    end
else
  for i:=1 to premenna do
    begin
    write(a+1,' ');
    a:=a+2;
    end;
readln;
end.