Alg1 - 3ªlista. 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