Program TableauExercice03;

Const
	N = 10;

Var 
    t : Array [1..N] of Integer;
    i, x, cpt : 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]);
		
	WriteLn('Donnez la valeur à chercher dans le tableau :');
	ReadLn(x);
	
	cpt := 0;
	
	For i := 2 to N Do
	Begin
		If (x = t[i]) Then
			cpt := cpt + 1;
	End;
		
	WriteLn(x, ' apparait ', cpt, ' fois dans le tableau');
	
End.