program Unicornquest;

//fpc 3.0.0

var prenom : string;
var name : string;
var age : byte;
var reponse1 : string;
var reponse2 : string;
begin
    writeln('Bien le bonjour, cher aventurier!');
    writeln('Comment t appelles-tu?');
    readln(prenom);

    writeln('Et ',prenom,' quel est ton nom?');
    readln(name);
    writeln('Mes sinceres salutations, Mr ',prenom,' ', name,'!');
    writeln('Et dis moi ... Quel age as-tu?');
    readln(age);
    writeln('Oh tu as ' ,age,' ans?! Tu as donc l age pour avoir ta premiere... monture');
    writeln(' ');
    writeln(' ');
    writeln(' ');
    writeln('-------');
    writeln(' ');
    writeln(' ');
    writeln('Aimes-tu les licornes mon cher camarade?');
    readln(reponse1);
    if (reponse1 = 'oui') then

      writeln('Preferes-tu le jaune ou le magenta?');
      readln(reponse2)

      if (reponse2='jaune');then
      writeln('Felicitation! Je te presente Pascal ta licorne gilet jaune');

    end
    else if (reponse1 = 'non') then
    writeln('Dommage... Je t'' envoie directement chez le dragon Sreeg');
    writeln('Bonne journée!');

end.