Algorithme de PASCAL

program SansNom;

function minimum(a,b,c:real):real;
begin
result:=a;
if b<result then result:=b;
if c<result then result:=c;
end;

function maximum(a,b,c:real):real;
begin
result:=a;
if b>result then result:=b;
if c>result then result:=c;
end;

var a,b,c,x,y,z:real;
begin
     write('1 er  reel : '); readln(a);
     write('2 eme reel : '); readln(b);
     write('3 eme reel : '); readln(c);
     writeln;

     x:=minimum(a,b,c);
     z:=maximum(a,b,c);

     y:=a+b+c-x-z;

     writeln('1 er  reel : ',x);
     writeln('2 eme reel : ',y);
     writeln('3 eme reel : ',z);
     writeln;

writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.