Calcular se o número é Primo

Código:

/* Um numero primo é um numero natural maior que 1, que tem só dois divisores, o 1 e o próprio número */

DEF VAR x          AS INT.
DEF VAR numero AS INT.
DEF VAR cont      AS INT.

REPEAT:

   UPDATE numero.

   cont = 0.

   DO x = 1 TO numero:

      IF numero MODULO x = 0 THEN ASSIGN cont = cont + 1.
   
   END.

   IF cont = 2 THEN MESSAGE "O Número " + numero + " é primo".
   ELSE MESSAGE "O Número " + numero + " não é primo".

   cont = 0. 
END.