Var
Nome, mes2:caractere
dia, mes: inteiro
ano:real
nascimento, idade:real
Inicio
escreva ("Nome: ")
leia (nome)
escreval ("Dia do Nascimento: , ex:24")
leia (dia)
Escreval ("Mês de Nascimento: , ex:02")
leia(mes)
escreval ("Ano De Nascimento: , ex:1980")
leia (nascimento)
limpatela
escreval ("Ano Atual: ")
leia (ano)
idade <- (ano - nascimento)
escreval("Nome: ", nome,"Tem", idade, "Anos de Idade")
para mes de 1 ate 12 faca
se mes = 1 então
mes2 <- " Janeiro"
senao
se mes = 2 então
mes2 <- "Fevereiro"
se mes = 3 então
mes2 <- "Março"
senao
se mes = 4 então
mes2 <- "Abril"
senao
se mes = 5 então
mes2 <- "Maio"
senao
se mes = 6 então
mes2 <- "Junho"
se mes = 7 então
mes2 <- "Julho
senao
se mes = 8 então
mes2 <- "Agosto"
se mes = 9 então
mes2 <- "Setembro"
senao
se mes = 10 então
mes2 <- "Outubro"
se mes = 11 então
mes2 <- "Novembro"
se mes = 12 então
mes2 <- "Dezembro"
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimpara
escreval (nome," Nasceu em: ",dia," De ",mes2," De ",nascimento)
adicionado 26 minutos depois
já consegui valeu @devair1010