L3- Exercício 3-15 Escreva um algoritmo que leia duas datas, na forma dia, mês e ano, e informe qual é a mais recente.


algoritmo "Data R"        ecente
// Função :
// Autor :
// Data : 23/09/2010
// Seção de Declarações
var
  m1,d1,a1,m2,d2,a2: inteiro
  idade:real

inicio
// Seção de Comandos
   escreva("Entre com o dia, mês e ano  seguidos de enter.")
   leia(d1,m1,a1)
   escreva("Entre com o dia, mês e ano seguidos de enter.")
   leia(d2,m2,a2)
 
  se(a2>a1)entao
   escreva("A data" ,d2,"/",m2,"/",a2," é a mais recente")
  senao
    se(a1>a2)entao
      ("A data" ,d1,"/",m1,"/",a1," é a mais recente")
    senao
      se(m1>m2)entao
        escreva("A data" ,d1,"/",m1,"/",a1," é a mais recente")
      senao
        se(m2>m1)entao
           escreva("A data" ,d2,"/",m2,"/",a2," é a mais recente")
        senao
            se(d1>d2) entao
             escreva("A data" ,d1,"/",m1,"/",a1," é a mais recente")
            senao
             se (d2>d1)entao
                escreva("A data" ,d2,"/",m2,"/",a2," é a mais recente")
             senao
               escreva("As datas são iguais.")
             fimse
            fimse
        fimse
      fimse
    fimse
  fimse
 
fimalgoritmo