Entrada (arquivos *dat):
	
n: numero total de planetas (e tammbem de viagens). A matriz da
Expresso esta localizada no planeta 1 (Terra). Os demais n-1 planetas
sao os das filiais.
(entrada inteira positiva)

viagem: lista das viagens disponiveis para a nave da Expresso e seus
respectivos custos. Note que nao necessariamente existe uma viagem
para cada par de planetas. Da mesma forma, por razoes tecnicas, pode
ser que entre dois planetas so exista a possibilidade de viajar em um
dos sentidos. Cada entrada eh da forma "(X,Y) Z", o que indica que
existe a possibilidade de viajar de X para Y com custo Z (custo real
positivo). Ha duas forma de indicar que nao existe a possibilidade de
viajar do planeta X para o planeta Y: ou incluir na lista a expressao
"(X,Y) 0" ou nao incluir nenhuma informacao sobre o par (X,Y), que
neste caso sera assumido como 0 pelo Mosel.
(entrada real nao negativa)

extra: lista das viagens extras necessarias entre duas filiais. Todas
as entradas desta lista sao da forma "(X,Y) Z", onde X e Y sao os
numeros dos planetas das filiais, ou seja, pertencem ao intervalo
[2..n], e Z eh um numero real nao negativo.
(entrada real nao negativa)

Saida (*out):

Inserir o seguinte trecho de codigo apos a chamada do comnado
responsavel pela minimizacao ou maximizacao da funcao objetivo:

! Se encontrou uma solucao otima
if (getprobstat = XPRS_OPT) then
   writeln("Valor otimo = ", strfmt(getobjval,1,2))
   writeln("Planetas:")
   ! Incluir trecho responsavel por imprimir a lista dos
   ! planetas a serem visitados, um por linha. A lista deve
   ! comecar e terminar com o planeta de origem.
   ! Para imprimir o planeta i, use o seguinte comando
   ! writeln(i)
   writeln("Transportes extras:")
   ! Incluir trecho responsavel por imprimir a lista dos
   ! transportes extras necessarios, um por linha. A lista deve
   ! ser impressa em ordem crescente. Por exemplo, o transporte
   ! (3,5) deve preceder os transportes (4,2) e (3,7), mas deve
   ! aparecer apos o transporte (2,9).
   ! Para indicar a necessidade de um transporte extra entre os
   ! planetas i e j, use o seguinte comando:
   ! writeln("(",i,",",j,")")
! Nao existe uma solucao otima
   writeln("Valor otimo nao encontrado")
end-if

Seu programa nao deve imprimir nada alem deste trecho de codigo. Nao
imprima nenhuma pergunta solicitando o arquivo de entrada. Nao deixe
nenhuma linha em branco ou com algum caracter extra.