Run Code  | API  | Code Wall  | Misc  | Feedback  | Login  | Theme  | Privacy  | Patreon 

t moche

//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
    begin
        place3 := Number3;
    end
end.
 run  | edit  | history  | help 0