DouKaku?

{ Free Pascal + Run-Time Library (rtl)
  2 args
  kuji n m
}
program kuji;
uses
  SysUtils;
Var
  n, m : Cardinal; 

begin
  if ParamCount <> 2 then Exit;
  n := StrToInt(paramstr(1));
  m := StrToInt(paramstr(2));
  if n < m then Exit; 

  Writeln('# n=', IntToStr(n), ' m=', IntToStr(m));
  Randomize;

  for n := n downto 1 do
  begin
    if Random(n)+1 <= m then
    begin
      WriteLn(IntToStr(n));
      Dec(m);
    end;
  end;
end.