Como testar se um número é primo em VisuAlg

algoritmo "Algoritmo que testa se um número é primo"

var
  // variáveis usadas na resolução do problema
  primo: logico
  numero, i: inteiro

inicio
  primo <- verdadeiro // vamos assumir que o número é primo

  // vamos solicitar um número inteiro positivo
  escreva("Informe um número inteiro positivo: ")
  leia(numero)
  
  // o número é negativo?
  se numero < 0 entao
    escreva("Número inválido.")
  // é 0 ou 1?
  senao
    se (numero = 0) ou (numero = 1) entao
      escreva("Número válido, mas não é primo.")
    // passou até aqui. Vamos testar se o número é primo
    senao
      para i de 2 ate int(numero / 2) faca
        // se passar no teste, não é primo
        se numero mod i = 0 entao
          primo <- falso // recebe falso
          interrompa
        fimse
      fimpara
      
      // agora testamos o valor da variável primo
      se primo = verdadeiro entao
        escreva("O número informado é primo")
      senao
        escreva("O número informado não é primo")
      fimse
      
    fimse
  fimse

fimalgoritmo