skon

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
        begin
            write('T[',i,']= ');
    Readln(t[i]);
      end;
End;

Procedure saisi_n(Var n:Integer);
Begin
  Repeat
    Write('N= ');
    Readln(n);
  Until (n>2) And (n<=50);
End ;

Procedure saisi_k(Var k :Integer;n:Integer);
Begin
  Repeat
    Write('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
    begin
    x := i+k ;
  If (x>n) Then
    x := x-n;
  t2[x] := t[i];
    end;
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
    Write(t2[i]:4);
    writeln;
End;
Begin
  saisi_n(n) ;
  saisi_k(k,n);
  remp_tab(t,n) ;
    aff(t,n);
{  init(t2,n) ;}
  decaler(t,t2,n,k) ;
  aff(t2,n);
End.