Sistema de senhas em portugol

algoritmo "sistema de senhas"
// Função :
// Autor :  Moises fernandes barbosa moises33m@gmail.com
// Data : 11/11/2013
// Seção de Declarações

//Exercícios propostos: (1 - Aula 6)
//Utilizando-se dos comandos aprendidos nas aulas anteriores, faça uma rotina que
//verifique por 3 vezes um conjunto de caracteres digitados (senha)apresentando a
//mensagem “ Senha Errada” caso a sequência não coincida ou a mensagem
//“Senha Correta” caso a sequência coincida. Se na quarta tentativa, os valores
//não coincidirem, deverá aparecer a mensagem “Senha Bloqueada”.

var
senha: inteiro
senha_correta: inteiro
inicio
// Seção de Comandos
senha_correta <- 12345
escreva ("Digite a senha: ")
leia(senha)
se senha=senha_correta entao
escreval ("Voce digitou a senha CORRETA!")
senao
escreval ("Senha ERRADA! Tente novamente:")
leia(senha)
se senha=senha_correta entao
escreval ("Voce digitou a senha CORRETA!")
senao
escreval ("Senha ERRADA! Tente novamente:")
leia(senha)
se senha=senha_correta entao
escreval ("Voce digitou a senha CORRETA!")
senao
escreval ("Senha ERRADA! Tente novamente:")
leia(senha)
se senha=senha_correta entao
escreval ("Voce digitou a senha CORRETA!")
senao
escreval ("Senha ERRADA! Tente novamente:")
leia(senha)
se senha=senha_correta entao
escreval ("Voce digitou a senha CORRETA!")
senao
escreval ("Senha Bloqueada")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo