Program TableauExercice06;

Const
	N = 10;
	
Type
	Tableau = Array [1..N] of Integer;

Var 
    t : Tableau;
    i, j : Integer;
    sym : Boolean;

Begin
	{ Lecture des éléments d'un tableau }
	{ Vous devez toujours mettre cette boucle même si elle n'est pas mentionnée }
	
	WriteLn('Donnez ', N, ' éléments :');
	For i := 1 to N Do
		ReadLn(t[i]);
		
	j := N;
	sym := True;
	
	For i := 1 to (N Div 2) Do
	Begin
		If(t[i] <> t[j])Then
			sym := False;
			
		j := j - 1;
	End;
		
	If(sym)Then
		WriteLn('Le tableau est symétrique')
	Else
		WriteLn('Le tableau n''est pas symétrique');
	
End.