PrimoPerfecto, Pascal

Language: Layout:

program numero_primo_perfecto;

procedure validar(var numero:integer);
begin
    repeat
        read(numero);
    until (numero >= 2);
end;

function esPrimo(numero:integer):boolean;
var divisor, contadorDivisores : integer;
begin
    contadorDivisores:= 0;
    for divisor:= 1 to numero do
    begin
        if (numero mod divisor = 0) then
            contadorDivisores+= 1;
    end;
    esPrimo:= contadorDivisores = 2;
end;

procedure primoPerfecto(numero:integer);
var copia, digito : integer;
    auxiliar : boolean;
begin
    auxiliar:= true;
    copia:= numero;
    while (copia <> 0) and (auxiliar = true) do
    begin
        digito:= copia mod 10;
            if (esPrimo(digito)) then
                auxiliar:= true
            else
                auxiliar:= false;
        copia:= copia div 10;
    end;
    if (auxiliar = false) then
        write(numero, ' no es primo perfecto')
    else
        write(numero, ' es primo perfecto');
end;

var numero : integer;
begin
    validar(numero);
    primoPerfecto(numero);
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.07 sec, cpu time: 0.01 sec, memory peak: 3 Mb, absolute service time: 0,28 sec