Program yueshefu;
Var
  a:array[1..100] of integer;
  n,m,i,j,p:integer;
Begin
  write('Input n,m:');
  readln(n,m);
  for i:=1 to n do
    a[i]:=i;
  p:=1;                     {p用于记录报数的位置}
  for i:=1 to n do
    begin
      j:=0;                  {j用于记录报到的人数}
      while j<m do
        begin
          if a[p]<>0 then j:=j+1;
          if p=n then p:=1 else p:=p+1;  {处理边界情况}
        end;
      if p<>1
           then begin write(a[p-1],' ');a[p-1]:=0;end       {处理边界情况}
           else begin write(a[n],' ');a[n]:=0;end;
    end;
end.

//delphi/7185