Tri, Pascal - rextester

Tri

//fpc 3.0.0

program HelloWorld;

var 
  number1: integer;
  number2: integer;
  number3: integer;
  one,two,three: integer;
  answer: string;
  yes: string;

begin
    writeln('Bienvenue dans le tri automatique !');
    writeln('Vous allez choisir 3 nombres qui vont être automatiquement triés par l''ordinateur, let''s go !');
    writeln('Quel est ton nombre 1 ?');
    readln(number1);
    writeln(number1);
    writeln('Quel est ton nombre 2 ?');
    readln(number2);
    writeln(number2);
    writeln('Quel est ton nombre 3 ?');
    readln(number3);
    writeln(number3);
    writeln('Beep beep...');
    writeln('Tes nombres sont maintenant triés:');
    if(number2<number3) and (number2<number1)then
    begin
    one:= number2;    
    two:= number3;
    three:= number1;
    writeln(one, ' ', two, ' ', three);
    end;
    writeln('');
    
    writeln('Veux-tu recommencer ?');
    writeln('1.oui');
    writeln('2.non');
    writeln(answer);
    readln(answer);
    if(answer='oui')then
    begin
    writeln('Quel est ton nombre 1 ?');
    readln(number1);
    writeln(number1);
    writeln('Quel est ton nombre 2 ?');
    readln(number2);
    writeln(number2);
    writeln('Quel est ton nombre 3 ?');
    readln(number3);
    writeln(number3);
    writeln('Beep beep...');
    writeln('Tes nombres sont maintenant triés:');
    if(number3<number2) and (number2<number1)then

end;

end.


run \| edit \| history \| help	0