Program Exercice03Q01;

Var 
    age, frais : Integer;

Begin
	WriteLn('Ce programme calcule les frais à payer par personne');
	WriteLn('Veuillez introduire votre âge');
	ReadLn(age);
	
	if(age < 4)Then
		frais := 0
	Else { Je ne vais pas mettre "Begin...End;" 
		   parce que le "Else" ne contient qu'un "If" 
		   sans autres instructions }
		If(age < 12)Then
			frais := 50
		Else
			frais := 100;
	
	{ Vous pouvez ajouter un conditionnel pour unh meilleur affichage }
	WriteLn('Vous devez payer ', frais, ' DA');
	
End.