Ecrire un algorithme

Procedure Ordonner(a, b, c : Inetegr; var x, y, z : Integer)
Begin
{ Cet procedure va ordonner les nombres: x le plus grand, le y du mileu et z le plus petit }
if((a > b) and (a > c))then
Begin
     x := a;
     if(b > c)then
     Begin
           y := b; z := c;
     End
     else
     Begin
           z := b; y := c;
     End;
End
else
Begin
     if((a > b) or (a > c)then
     Begin
         y := a;
         if(b > c)then
         Begin
               x := b; z := c;
         End
         else
         Begin
               z := b; x := c;
         end;
     end    
     else
     Begin
         z := a;
         if(b > c)then
         begin
              x := b; y := c;
         end
         else
         begin
               x:= c; y := b;
         end;
     end;
end;