yghgh, Pascal - rextester

yghgh

//fpc 3.0.0

program HelloWorld;
var Hello: string;
var UserName: string;
var Humeur: string;
var Cream: string;

begin
    writeln('Hello Amigos!');
    readln(Hello);
    begin
        if (Hello='Bonjour') then
            writeln('Quel est ton pseudonyme, mon cher ami?');
            readln(UserName);
            writeln('Bienvenue dans mon antre, ', UserName);
            writeln('Tu vas bien?');
            readln(humeur);
            begin
                if (humeur='oui') then
                    writeln('Super! Moi aussi ;)');
                    writeln('Bonne journée!') 
                else 
                begin
                    writeln('Ah bon? Veux-tu une glace?');
                    readln(Cream);
                end;   
                    begin
                        if (Cream='oui') then 
                            writeln('Voici ta glace, bonne journée!')
                    else
                        writeln('Ok ciao!')
                    end;  
            end;
    else
        writeln('Tu n''as jamais appris la politesse?');
        writeln('PNJ a tué Amigos!');
    end;
end.


run \| edit \| history \| help	0

Please log in to post a comment.