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

algoritmo "Data mais recente "
var
  d1,m1,a1,d2,m2,a2,data1,data2 : inteiro
inicio
  escreval ("Digite o dia 1")
  leia(d1)
  escreval ("Digite o mes 1")
  leia(m1)
  escreval ("Digite o ano 1")
  leia(a1)
  escreval ("Digite o dia 2")
  leia(d2)
  escreval ("Digite o mes 2")
  leia(m2)
  escreval ("Digite o ano 2")
  leia(a2)
  se (a2 = a1)e(m2 = m1)e(d2 = d1)entao
  escreva ("AS datas são iguais")
  fimse
  data1 <- d1+(m1*30)+(365*a1)
  data2 <- d2+(m2*30)+(365*a2)
  se (data1 > data2) entao
     escreva ("A data mais recente eh",d1,"/",m1,"/",a1)
  senao
     escreva ("A data  mais recente eh",d2,"/",m2,"/",a2)
  fimse
  fimalgoritmo