Erro com algoritimo

algoritmo "Loja De Cd's"

var
quantidade, valor: real
cor: caractere
inicio
escreval("Qual é a cor do CD?")
leia(cor)
se cor=vermelho entao
escreval("CD Vermelho R$ 39,00, Quantos?")
leia(quantidade)
escreval(39*quantidade)
senao cor=azul entao
escreval ("CD Azul R$60,00, Quantos?")
leia(quantidade)
escreval(60*quantidade)
senao cor=verde entao
escreval("CD Verde R$65,00, Quantos?")
leia(quantidade)
escreval(65*quantidade)
senao cor=amarelo entao
escreval("CD Amarelo R$80,00, Quantos?")
leia(quantidade)
escreval(80*quantidade)
fimse

fimalgoritmo

O erro ta na linha que fala da cor vermelha (se cor=vermelho entao), ja tentei de tdos os jeitos...

seu problema é com as aspas e o senao!
o algoritmo é esse:
algoritmo "Loja De Cd's"

var
quantidade, valor: real
cor: caractere
inicio
escreval("Qual é a cor do CD?")
leia(cor)
se cor="vermelho" entao
escreval("CD Vermelho R$ 39,00, Quantos?")
leia(quantidade)
escreval(39*quantidade," reais")
senao
se cor="azul" entao
escreval ("CD Azul R$60,00, Quantos?")
leia(quantidade)
escreval(60*quantidade," reais")
senao
se cor="verde" entao
escreval("CD Verde R$65,00, Quantos?")
leia(quantidade)
escreval(65*quantidade," reais")
senao
se cor="amarelo" entao
escreval("CD Amarelo R$80,00, Quantos?")
leia(quantidade)
escreval(80*quantidade," reais")
fimse
fimse
fimse
fimse
fimalgoritmo