Unicorn, Pascal - rextester

Language: Layout:

//fpc 3.0.0

program Unicorn ;

var firstname: string;
var name: string;
var age: byte;
var answer: string;
var colour: string;

begin
    writeln('Hello world !');
    writeln('Bonjour quel est ton Prénom ?');
    readln(firstname);
    writeln(firstname);
    writeln('Quel est ton nom ?');
    readln(name);
    writeln(name);
    writeln('Bienvenue ',firstname,name,' !');
    writeln('Quel âge as-tu ?');
    readln(age);
    writeln(age);
    writeln('Tu as donc l''âge requis pour ta première... monture !');
    writeln('Ok... aimes-tu les licornes ?');
    readln(answer);
    writeln(answer);
    if(answer='oui')then
    begin
    writeln('De quelle couleur la veux-tu ?');
    writeln('Jaune ou Mauve ?');
    readln(colour);
    writeln(colour);
    if(colour='Jaune')then
    begin
    writeln('Je te présente Pascal, la licorne gilet jaune');
    writeln('Bonne journée !');
    end
    else;
    if(colour='Mauve')then
    begin
    writeln('Je te présente Jaqueline, la vieille licorne');
    writeln('Bonne journée !');
    end
    end
    else if(answer='non')then
    begin
    writeln('Dommage... ce soir tu vas mourir !');
    writeln('Bonne journée !');
    end
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.13 sec, absolute running time: 0.08 sec, cpu time: 0.01 sec, memory peak: 3 Mb, absolute service time: 0,39 sec