SmallQuest, Pascal

Language: Layout:

program SmallQuest;

// Type: Texte
// String

// Type: Numérique (nombre entier)
// Byte (EN) = Octet (FR) 1111 1010 > Ex: 25 ou 35 ou 234 ou ...
// Integer > 32 767 > Ex: 25 000 ou 945 ou 29 871 ou ...
// LongInt > 2 147 483 647 > Ex: 25 367 894 ou 1 364 257 693 ou ...

// Type: Numérique (nombre réel, à virgule)
// Double ou Extended > Ex: 3.14

// Un octet (byte) peut aller de 0 à 255
// 0000 0000 > 0
// 1111 1111 > 255

var name, unicorn: string;
var year: byte; // Valeur qui peut aller de 0 à 255

begin
    writeln('Bienvenue cher aventurier dans la classe enchantée!');
    writeln('Tout d''abord, comment t''appelles-tu?');
    readln(name);
    writeln('Bien le bonjour ', name);
    writeln('Dis moi, quel âge as-tu?');
    readln(year);
    writeln('Tu as donc ', year, ' ans...');
    writeln('Tu as donc l''âge requis pour avoir ta première monture!');
    writeln('Aimes-tu les licornes?');
    readln(unicorn);
    if (unicorn = 'Oui') then
    begin
        writeln('Super! Je te présente Fluffy, enjoy! :)');
    end
    else
    begin
        writeln('Non? Je t''envoie directement chez le dragon alors, good luck!');
    end
end.

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