Program Symetri_tab;
Type Tab = Array [1..50] of Integer;
Var T : Tab;
i, j, n : Integer;
Begin
Repeat
Writeln ('Saisir un entier');
Readln (n);
Until (n>1) and (n mod 2 =0);
Writeln ('Saisir ', n div 2, ' éléments de T');
For i := 1 To (n div 2) Do
Begin
Readln (T[2*i-1]);
T[2*i]:= T[2*i-1];
End;
For i := 1 To (n div 2)-1 Do 
Begin
For j:=i+1 To n-i Do T[j] := T[j+1];
T[n-i+1] := T[i];
End;
Writeln ('Tableau symétrique :');
For i := 1 To n Do Write (T[i]:4);
End.