bely

Alguem sabe porque não roda me ajuedem, por favor....

Gente, alguém poderia a me ajudar porque não tá rodando esse programa q fala o horóscopo alguém sabe um outro modo de faze-lo? fico grata pela ajuda

algoritmo "Horoscopo"
// Função :
// Autor :
// Data : 3/6/2010
// Seção de Declarações
var
   dia,mes: inteiro
   nome:caracter
inicio
   // Seção de Comandos
   escreval("Entre com seu nome")
   leia(nome)
   escreval("Entre com o dia de seu nascimento")
   leia(dia)
   escreval("Entre com o mês de seu nascimento")
   leia(mes)
   se(dia>=20 e dia<=31 e mes=3 dia>=1 dia<=20 e mes=4)então
      escreva(nome,"è do signo de Áries ")
   fimse
   se(dia>=21 e dia<=30 e mes=4 e dia>=1 e dia<=20 e mes=5)então
      escreval(nome,"é do signo de Touro")
   fimse
   se(dia>=21 e dia<=31 e mes==5 e dia>=1 e dia<=20 e mes=6)então
      escreval(nome,"é do signo de Gêmeos")
   fimse
   se(dia>=21 e dia<=30 e mes==6 e dia>=1 e dia<=21 e mes=7)então
      escreval(nome,"é do signo de Cancer")
   fimse
   se(dia>=22 e dia<=31 e mes==7 e dia>=1 e dia<=22 e mes=8)então
      escreval(nome,"é do signo de Leão")
   fimse
   se(dia>=22 e dia<=31 e mes=8 e dia>=1 e dia<=22 e mes=9)então
      escreval(nome,"é do signo de Virgem")
   fimse
   se(dia>=22 e dia<=30 e mes=9 e dia>=1 e dia<=22 e mes=10)então
      escreval(nome,"é do signo de Libra")
   fimse
   se(dia>=23 e dia <=31 e mes==10 e dia>=1 e dia<=21 e mes=11)então
      escreval(nome,"é do signo de Escorpião")
   fimse
   se(dia>=22 e dia<=30 e mes==11 e dia>=1 e dia<=21 e mes=12)então
      escreval(nome,"é do signo de Sagitário")
   fimse
   se(dia>=22 e dia<=31 e mes=12 e dia>=1 e dia<=20 e mes=1)então
      escreval(nome,"é do signo de Capricórnio")
   fimse
   se(dia>=21 e dia<=31 e mes=1 e dia>=1 e dia<=18 e mes=2)então
      escreval(nome,"é do signo de Aquário")
   fimse
   se(dia>=19 e dia<=29 e mes=2 e dia>=1 e dia<=19 e mes=3)então
      escreval(nome,"é do signo de Peixes")
   senao
      escreval("dia ou mês invalido")
   fimse
fimalgoritmo