masterblod

Olá! Eu estou tentando fazer um algoritmo que lê a data atual e a data de nascimento da pessoa, e diz quantos anos, meses e dias ela tem hoje... A minha lógica por enquanto parece certa, mas ocorre algum tipo de erro quando eu executo o programa...Dêem uma olhada: var dat1: vetor[1..3] de real dat2: vetor[1..3] de real p1: inteiro p2: inteiro cacl1: inteiro calc2: inteiro inicio // Seção de Comandos escreval("Entre com o dia,o mes e o ano atuais. Aperte enter após cada") escreval("informação digitada.") para p1 de 1 ate 3 faca leia (dat1[p1]) fimpara escreval escreval("Agora, entre com a data de seu nascimento, da mesma foram que") escreval("você digitou a data atual.") para p2 de 1 ate 3 faca leia (dat2[p2]) fimpara //Tentativa de calculo para definir quantos mesese a pessoa tem. Se dat1[2] > dat2[2] então calc1 <- dat1[3] - dat2[3] Escreval("Você tem ", calc1, " anos.") Se dat1[2] < dat2[2] então calc1 <- dat1[3] - dat2[3] Escreval("Você tem ", calc2, " anos.") fimse fimalgoritmo Vejam se há algum erro de sintaxe ou algo do gênero... Também aceito sugestões de como fazer de outra maneira ^^ Obrigado desde já _o/