uses crt; var i,n,x,dem:longint; rand:byte; begin clrscr; randomize; readln(n,x); dem:=0; for i:=1 to n do begin if (n-i)-(x-dem)>=0 then if dem<x then begin rand:=random(2); if rand=0 then inc(dem) else writeln(i); end else writeln(i); end; readln; end.
