j en ai marre, Pascal

Language: Layout:

//fpc 3.0.0

program HelloWorld;
var Number1: integer;
var Number2: integer;
var Number3: integer;
var Place1: integer;
var Place2: integer;
var Place3: integer;

begin
    writeln('Bienvenue dans le tri automatique par des chinois.');
    writeln('Vous allez choisir 3 nombres qui vont être automatiquement triés par des chinois, let''s go!');
    writeln('Quel est ton nombre 1 pour les chintoc?');
    readln(Number1);
    writeln('Quel est ton nombre 2 pour les mangeur de chien?');
    readln(Number2);
    writeln('Quel est ton nombre 3 pour les bridé?');
    readln(Number3);
    if (Number1<Number2) then
    begin
        if (Number1<Number3) then
        Place1 := Number1;
    end
    else
        if (Number2<Number3) then
        Place2 := Number2
    else
        Place3 := Number3;
        
        if (Number2<Number1) then
        begin
            if (Number2<Number3) then
            begin
            Place1 := Number2;
            end
            else
            Place3 := Number2
            writeln(Place1);
        end    
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.13 sec, absolute service time: 0,21 sec