var a,n,b,l,m,y:longint;
    s,s3,s1:string;
begin
s:='';
l:=0;
readln(n,m);
  for a:=1 to n do s:=s+'1';
  repeat
  for b:=1 to n do begin
  if s[b]<>'0' then l:=l+1;
   if l=m then begin
   s[b]:='0';
   str(b,s3);
   s1:=s1+s3+'->';
   l:=0;
    end;
  end;
  val(s,y);
  until y=0;
  writeln(copy(s1,1,length(s1)-2));
  writeln;
end.

这道我的书上有例题
我觉得用STRING比用ARRAY要好(我的书上用的数组)~~~

对哦`很标准的例题呢``
偶同意楼上的观点