corza71, Pascal - rextester

corza71

//fpc 3.0.0

program HelloWorld;
var FirstName: string;
var LastName: string;
var Years: integer;
var YesOrNo: string;
var Color: string;

begin
    writeln('Bien le bonjour, cher aventurier!');
    writeln('Comment t''appelles-tu?');
    readln(FirstName);
    writeln('Et... quel est ton nom?');
    readln(LastName);
    writeln('Mes sincères salutations, M.',FirstName,' ',LastName);
    writeln('Et dis moi... quel âge as-tu?');
    readln(Years);
    writeln('Oh! Tu as',' ',Years,'ans?! Tu as donc l''âge requis pour ta première... monture!');
    writeln('Aimes-tu les licornes mon cher camarade?');
    readln(YesOrNo);
    begin
        if (YesOrNo='oui') then 
        begin
            writeln('Préfères-tu le jaune ou le magenta?');
            readln(Color);
        
            if (Color='jaune') then
                writeln('Félicitations! Je te présente Pascal, la licorne gilet jaune!')
            else
                writeln('Félicitations! Je te présente Brigitte, la licorne magique!');
        end
        else
            writeln('Dommage... Je t''envoie directement chez le dragon Sreeg! ;)');
    end;
    
    writeln('Bonne journée!');
end.


run \| edit \| history \| help	0