permutation

program permutation ;
Uses WinCrt;
type
 tab = Array[1..100] of integer ;
Const
 n = 8;
var
 t : tab ;
 a,c,b,e,nn: integer ;
begin
    for a := 1 to n do

        t[a] := a;
        {write('7ot el conetenu mta3 T[',a,'] : ');
         readln(t[a]);}
     write('T : ');
    for a:= 1 to n do
     write(a,'-',t[a],'/');
    writeln;
    b := n+1;
 if n mod 2 = 0 then
  nn := n div 2
Else
 nn := (n div 2 )+1;
    for a:= 1 to nn do
      begin
        b:=b-1;
         c:=t[a] ;
                                                                                     write('   C : ',c:2);
         t[a] := t[b] ;
                                                                                 write('   A',a:2,' : ',t[a]:2);
         t[b] := c;
                                                                                write('   B',b:2,' : ',t[b]:2);
                                                                                 writeln;

        end;
    Write('T1: ');
    for a := 1 to n do
 write(t[a],'/');
End.
{           programme qui permer :
            -inverser les elements d"un tableau TAB de N case n=15 en permutant les elements deux a deux.
            - afficher le nouveau tableau
            EXEMPLE : TAB[1] avec tab[N]
                                TAB[2] avec TAB[n-1]  }