Calcular Edad

Algoritmo Determinar_edad
 definir a?o,mes,dia Como Entero
 a?o<-0 
 mes<-0
 dia<-0
 escribir "ingrese fecha de nacimiento"
 Escribir "A?o de nacimiento"
 leer a?o
 Escribir "Mes de nacimiento"
 leer mes
 escribir "Dia de nacimiento"
 leer dia
 
 Escribir dia,"/",mes,"/",a?o
 
 Escribir "Ingrese fecha actual"
 Escribir "A?o"
 leer a?o1
 Escribir "Mes"
 leer mes1
 escribir "Dia"
 leer dia1
 
 Escribir "Fecha actual es: ",dia1,"/",mes1,"/",a?o1
 edad<-(a?o1-a?o)
 
 
 Si (mes1< mes) Entonces
  edad<-edad- 1;
 FinSi
 
 Si mes1= mes Entonces
  
  Si (dia1 < dia) Entonces
   edad <- edad - 1;
  FinSi
  
 FinSi

 Escribir "La edad actual de la persona es de: ",edad," a?os";
 
FinAlgoritmo