Program A03_Ex3;
Var
  N1,N2,N3: Integer;
  Maior,Meio,Menor:Integer;
Begin
  write('Entre com o 1o. n£mero: ');
  readln(N1);
  write('Entre com o 2o. n£mero: ');
  readln(N2);
  write('Entre com o 3o. n£mero: ');
  readln(N3);

  If (N1 >= N2) and (N1 >= N3)
  Then Begin
         Maior:=N1;
         If (N2 >= N3)
         Then Begin
                Meio:=N2;
                Menor:=N3;
              End
         Else Begin
                Meio:=N3;
                Menor:=N2;
              End;
       End
  Else If (N2 >= N1) and (N2 >= N3)
       Then Begin
              Maior:=N2;
              If (N1 >= N3)
              Then Begin
                     Meio:=N1;
                     Menor:=N3;
                   End
              Else Begin
                     Meio:=N3;
                     Menor:=N1;
                   End;
            End
       Else Begin               { Se o N3 nÆo for maior que N1 e N2... }
              Maior:=N3;        { EntÆo temos um grande problema aqui! }
              If (N1 >= N2)
              Then Begin
                     Meio:=N1;
                     Menor:=N2;
                   End
              Else Begin
                     Meio:=N2;
                     Menor:=N1;
                   End;
            End;

  { Exibe resultado na tela }
  writeln('Ordem crescente  : ',Menor,' ',Meio,' ',Maior);
  writeln('Ordem decrescente: ',Maior,' ',Meio,' ',Menor);
  writeln;
  readln;
end.