地1题:这是我自己做的,有可能麻烦了一些,仅供参考!
const Max=???;
var
  m:array [1..Max] of longint;
  n,s,m,i,k:longint;
begin
  readln(n,s,m);
  for i:=1 to n do m[i]:=i;
  k:=s+m;
  if k>n then k:=k-n;
  write(m[k]);
  for i:=k to n do m[i]:=m[i+1];
  n:=n-1;
  repeat
    k:=k+m;
    if k>n then k:=k-n;
    write(m[k]);
    for i:=k to n do m[i]:=m[i+1];
    n:=n-1;
  until n=0;
END.