program ARK;

var name:string;

var firstname:string;

var year:string;

var choose:string;

var color:string;

begin
    writeln('Quel est ton nom survivant!');

    readln(name);

    writeln('Quel est ton prénom!');

    readln(firstname);

    writeln('Bienvenu survivant M... ', name, ' ', firstname, ' dans ARK survival evolved');

    writeln('Quel age as tu?');

    readln(year);

    writeln('Tu es asser grand pour avoir un Rex');





    writeln('Tu le veux de couleur Rouge sang ou Noir démon');

    readln(color);

    if(color='rouge')then

    begin

        writeln('Voila ton Rex rouge passe une bonne journée sur notre cluster');

    end;

    if(color='noir')then

    begin

        writeln('Voila ton Rex noir passe une bonne journée sur notre cluster');

    end;

end.