Program Exercice02Q06;

Const
	LOGIN_CORRECT = 'admin';
	MDP_CORRECT = 'pass123';
	
Var 
    login, mdp : String; { mdp pour 'Mot De Passe' }

Begin
	WriteLn('Veuillez introduire votre login');
	ReadLn(login);
	
	WriteLn('Veuillez introduire votre mot de passe');
	ReadLn(mdp);
	
	If((login = LOGIN_CORRECT) and (mdp = MDP_CORRECT))Then
		WriteLn('Accès autorisé')
	Else
		WriteLn('Accès refusé');
	
End.