Program deca ;
Uses Wincrt ;
Type
  tab = Array [1..50] Of Byte ;
Var
  t,t2: tab;
  n,k: Integer;
Procedure remp_tab (Var t:tab ; n:Integer);
Var
  i: Integer;
Begin
  For i:=1 To n Do

  Readln(t[i]);
End;
Procedure saisi_n(Var n:Integer);
Begin
  Repeat
	writeln('n');
    Readln(n);
  Until (n>2) And (n<=50);
End ;
Procedure saisi_k(Var k :Integer;n:Integer);
Begin
  Repeat
	writeln('k= ?');
    Readln(k);
  Until (k>=1 ) And (k<n);
End;

Procedure decaler (Var t,t2:tab;n,k:Integer);
Var
  i,x: Integer;
  y: Byte;
Begin
  For i:=1 To n Do
    x := i+k ;
  If (x>n) Then
    x := x-n;
  t2[x] := t[i];
End;
 {
Procedure init(Var t2:tab;n:Integer);
Var
  i: Integer;
Begin
  For i:=1 To n Do
    t[i] := 0;
End;
}
Procedure aff(t2:tab;n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(t2[i]);
end;


begin
  saisi_n(n) ;
  saisi_k(k,n);
  remp_tab(t,n) ;
{  init(t2,n) ;}
  decaler(t,t2,n,k) ;
	aff(t2,n);
End.