{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************

TP 2, EXERCICE 4 }

program ordonner;  {non du programme}
uses crt;        {d‚claration de l'unit‚ utilis‚e}
var a,b,c:integer; {d‚claration de variables}

procedure echange;   {proc‚dure non-param‚tr‚e}
var v1,v2:integer;   {d‚claration de variables}
begin
if b>a then    {bloc condition nø1}
   begin
   v1:=b; v2:=a; a:=v1; b:=v2;
   end;
if c>a then    {bloc condition nø2}
   begin
   v1:=c; v2:=a; a:=v1; c:=v2;
   end;
if c>b then    {bloc condition nø3}
   begin
   v1:=c; v2:=b; b:=v1; c:=v2;
   end;
end;

BEGIN   {d‚but du programme principal}
clrscr;
writeln('Ce programme va trier les nombres A, B et C dans l''ordre d‚croissant.');
write('Entrez A, B et C : '); {messages … l'‚cran}
readln(a,b,c); {lecture des donn‚es entr‚es par l'utilisateur}
echange;  {exc‚cution de la proc‚dure "echange"}
writeln('Voici les nombres dans l''ordre d‚croissants : ',a,', ',b,' et ',c,' .');
END.   {fin du programme principal}