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.
|