Numero PRIMO en PROGRAMACION

UNIDAD EJERCICIO30
PROCESOS
PROCEDIMIENTO PRINCIPAL
DECLARACIONES PRIVADAS
Entero N
Entero I<-2
Lógico esPrimo <- Verdadero
CODIGO
ESCRIBIR "Introduce un numero, y te diré si es primo"
LEER N
MIENTRAS N<=0
ESCRIBIR "El numero introducido debe ser mayor que 0"
LEER N
FIN MIENTRAS
SI N=1
ESCRIBIR "El numero ",N," no es primo."
SINO
    MIENTRAS I<N
        SI (N MOD I = 0) ENTONCES
            esPrimo <- Falso
            SALIR
        SINO
            I <- I+1
        FIN SI
    FIN MIENTRAS
    SI esPrimo = Verdadero ENTONCES
        ESCRIBIR "El numero ",N," es primo."
    SINO
        ESCRIBIR "El numero ",N," no es primo."
    FIN SI
FIN SI
FIN PROCEDIMIENTO PRINCIPAL
FIN UNIDAD EJERCICIO30

¿Como te ha quedado el cuerpo? xD