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);

  { Testes "simplistas" }

  { Acha o maior }
  if (N1 >= N2) and (N1 >= N3)
  Then Maior:=N1
  Else If (N2 >= N1) and (N2 >= N3)
       Then Maior:=N2
       Else If (N3 >= N1) and (N3 >= N2)
            Then Maior:=N3;
  { Acha o menor }
  if (N1 <= N2) and (N1 <= N3)
  Then Menor:=N1
  Else If (N2 <= N1) and (N2 <= N3)
       Then Menor:=N2
       Else If (N3 <= N1) and (N3 <= N2)
            Then Menor:=N3;
  { Acha o do meio }
  if (N1 > Menor) and (N1 < Maior)
  Then Meio:=N1
  Else If (N2 > Menor) and (N2 < Maior)
       Then Meio:=N2
       Else If (N3 > Menor) and (N3 < Maior)
            Then Meio:=N3
            Else If (N1 = N2)
                 then Meio:=N1
                 Else if (N2 = N3)
                      Then Meio:=N2
                      Else writeln('>> Opss! Isso nĈo devia acontecer...');

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