Unicorn, Pascal - rextester

Unicorn

//fpc 3.0.0

program HelloWorld;

var firstname: string;
var name: string;
var age: byte;
var reponse: 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(reponse);
    writeln(reponse);
    if(reponse='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');
    end
    else
    if(colour = 'Mauve')then
    begin
    writeln('Je te présente Jaqueline, la vieille licorne');
    end;
    
    readln(reponse);
    writeln(reponse);
    if(reponse = 'non')then
    begin
    writeln('Fuis sale fou !');
    end;
    
   
   
    
  
  
    end;
    
    
    
    
    
   
    
   
    
   
    
   
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development