Algoritmo com erro

[GUSTAVO BATISTA 0]

Pessoal eu fiz esse algoritmo para saber se um numero é primo ou nao.QuaNDO entro com um numero primo e roda normalmente apresentando a mensagem Numero é primo,mas quando eu digito um numero q n é primo ele apresenta um erro.

 

var
i,n:inteiro
funcao primo(n:inteiro):inteiro
var
pr:inteiro
inicio
para i de n-1 ate 2 passo -1 faca
   se(n mod i = 0 )entao
   pr<- "n"
   fimse
   fimpara
   se(pr="n")entao
   escreval
   escreval("Numero é Primo")
   senao
   escreval("Nao é primo")
   fimse

   retorne pr
fimfuncao

inicio
escreval("Digite um numero: ")
leia(n)
escreval(primo(n))
fimalgoritmo

[_Isis_ 202]

pr é inteiro ou string?

 

Leia de novo o código, porque falta coisa. Qual o valor de pr quando N é primo? Diferente de "n"? E pr = "n"[/n] quando o número tem divisores? Por que você imprime "É primo" quando N tem divisores?