Solução em Pascal do Problema 19

program OrdemCrescente;
var
  n1, n2, n3: integer;
begin
  write ('Entre com tres numeros: ');
  read (n1,n2,n3);
  if n3>n1 then
          begin
           if n1>n2 then write ('A ordem crescente: ',n2,' ',n1,' ',n3)
                  else if n2<n3 then write('A ordem crescente: ',n1,' ',n2,' ',n3);
          end;
  if n1>n2 then
          begin
           if n2>n3 then write ('A ordem crescente: ',n3,' ',n2,' ',n1)
                  else if n3<n1 then write('A ordem crescente: ',n2,' ',n3,' ',n1);
          end;
  if n1<n2 then
          begin
           if n3<n1 then write ('A ordem crescente: ',n3,' ',n1,' ',n2)
                  else if n3<n2 then write('A ordem crescente: ',n1,' ',n3,' ',n2);
          end;
end.