垃圾.
这个程序,稍微认真一点都可以做.

这个程序可以这样，我的方法：
program jos;
var a:array[1..100] of boolean;
procedure inp;
begin
  readln(m,n);
  for i:=1 to m do a[i]:=true;
end;

procedure runs;
begin
  i:=0; j:=0; p:=m;
  repeat
     i:=i+1; j:=j+1;
       if i>m then i:=i-m;
       if j=n then
         if a[i]=true then begin
            write(i,' ');
            a[i]:=false;
            j:=0; p:=p-1;
           end
          else j:=j-1
  until p=0;
end;
begin
  inp;
  runs;
end.
{程序差不多就是这样了，家我QQ把，345420812，你有什么好东西我门一起交流一下}

这个可以用链表解决