program lich4; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..10000000] of integer; n,n0,k,k0,i,j:integer; begin readln(n,k); for i:=1 to n do a[i]:=i; n0:=n; k0:=1; while n>1 do begin //writeln('n=',n,' k0= ',k0); if k0+k<=n+1 then k0:=k0+k-1 else k0:=(k mod n)-(n-k0)-1; n:=n-1; for j:=k0 to n do a[j]:=a[j+1]; //for j:=1 to n do write(a[j]); //readln; end; { TODO -oUser -cConsole Main : Insert code here } end.