Como testar se um número é primo em Portugol

// Algoritmo que testa se um número é primo
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    logico primo
    inteiro numero

    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) {
      escreva("Número inválido.")
      // é 0 ou 1?
    }
    senao se ((numero == 0) ou (numero == 1)) {
      escreva("Número válido, mas não é primo.")
      // passou até aqui. Vamos testar se o número é primo
    }
    senao{
      para (inteiro i = 2; i <= inteiro(numero / 2); i++) {
        // se passar no teste, não é primo
        se (numero % i == 0) {
          primo = falso // recebe falso
          interrompa
        }
      }
      
      // agora testamos o valor da variável primo
      se (primo == verdadeiro) {
        escreva("O número informado é primo")
      }
      senao{
        escreva("O número informado não é primo")
      }
    }
  }
}