task3

const n=10;
var a: array[1..n] of integer;
    i,j,k,t: integer;
Begin

    for i:=1 to n do begin
      a[i] := i;
      write(a[i],' ');
    end;

    writeln;
    readln(k);

    k:=k-n*(k div n);

    for j:=1 to k do begin
      t := a[n];
      for i:=n downto 2 do
      a[i] := a[i-1];
      a[1] := t;
    end;

    for i:=1 to n do write(a[i],' ');

End.