uses tpcrt;
var
  max,min : Byte;
  a: array[1..20] of byte;
  i,a1 : byte;
  b : boolean;
begin
  clrscr;
  write('Input min,max [0..127] : '); readln(min,max);
  b:=true; a[1]:=min; write(a[1]:4);
  for i:=2 to 20 do begin
    if b then begin a[i]:=a[i-1]+1; b:=a[i]<>max; end
         else begin a[i]:=a[i-1]-1; b:=a[i]=min; end;
    write(a[i]:4);
  end;
  writeln; readln;
end.