Program TableauExercice07;

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

Var 
    t, t_pairs, t_impairs : Tableau;
    i, a, b : 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(t[i]);
		
	a := 0; { Nombre des éléments pairs }
	b := 0; { Nombre des éléments impairs }
	
	For i := 1 to N Do
	Begin
		If(t[i] Mod 2 = 0)Then
		Begin
			a := a + 1;
			t_pairs[a] := t[i];
		End
		Else
		Begin
			b := b + 1;
			t_impairs[b] := t[i];
		End;
	End;
	
	WriteLn('Les éléments pairs :');
	For i := 1 to a Do
		WriteLn(t_pairs[i]);
		
	WriteLn('Les éléments impairs :');
	For i := 1 to b Do
		WriteLn(t_impairs[i]);
	
End.