Program Exercice02Q01;

Var 
    age : Integer;

Begin
	WriteLn('Quel ets votre âge ?');
	ReadLn(age);
	
	If(age >= 18)Then
	Begin
		WriteLn('Vous êtes Majeur');
	End
	Else
	Begin
		WriteLn('Vous êtes Mineur');
	End;
	
End.