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

algoritmo "Informe a data recente"
var
ano1, ano2, mes1, mes2, dia1, dia2, primeiraData, segundaData: inteiro
inicio
 escreval ("Qual é a data mais recente ")
 escreva ("Informe o ano da primeira data: ")
 leia (ano1)
 escreva ("Informe o mês da primeira data: ")
 leia (mes1)
 escreva ("Informe o dia da primeira data: ")
 leia (dia1)
 escreva ("Informe o ano da segunda data: ")
 leia (ano2)
 escreva ("Informe o mês da segunda data: ")
 leia (mes2)
 escreva ("Informe o dia da segunda data: ")
 leia (dia2)
 primeiraData <- (ano1*365) + (mes1*30) + dia1
 segundaData <- (ano2*365) + (mes2*30) + dia2
 se primeiraData > segundaData entao
    escreva ("A data mais recente é a Primeira Data: ", ano1, " de ", mes1, " de" , dia1)
 senao
    escreva ("A data mais recente é a Segunda Data: ", ano2, " de ", mes2, " de" , dia2)
 fimse

  
fimalgoritmo