algoritmo que permita si un número es perfecto o no en psei

Proceso sin_titulo
cont<-1;
suma<-0;
n<-0;
Escribir "escribir un número";
Leer n;
Mientras cont<n Hacer
Si (n mod cont=0) Entonces
suma<-suma+cont;
Escribir cont;
Sino

Fin Si
cont<-cont+1;
Fin Mientras
Si n=suma Entonces
Escribir "el número " n; Escribir "si es un número perfecto";
Sino
Escribir "el número " n; Escribir "no es un número perfecto";
Fin Si
Fin


José Carlos Vargas Barreto