Program Exercice03Q03;

Var 
    age : Integer;

Begin
	WriteLn('Veuillez introduire votre âge');
	ReadLn(age);
	
	If(age < 18)Then
	Begin
		WriteLn('Mineur');
		If(age <= 12)Then
			WriteLn('Enfant')
		Else
			WriteLn('Adolescent');
	End
	Else
	Begin
		WriteLn('Majeur');
		If(age < 65)Then
			WriteLn('Adulte')
		Else
			WriteLn('Senior');
	End	;
	
End.