Program TableauExercice04;

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

Var 
    t1, t2 : Tableau;
    i, j : Integer;

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(t1[i]);
		
	j := N;
	
	For i := 1 to N Do
	Begin
		t2[j] := t1[i];
		j := j - 1;
	End;
		
	WriteLn('Le tableau inversé est :');
	
	{ Pour afficher un tableau, nous avons besoin d'une boucle comme la lecture }
	For i := 1 to N Do
		WriteLn(t2[i]);
	
End.