Ejemplo de Pseudocodigo: Algoritmo Para Determinar Si dos Numeros Son amigos En Pseint (No optimizado)

SubProceso suma <- SumaDivisores (A)
Definir suma como entero;
Definir primo como entero;
Definir sumaDivA como entero;
Definir div como entero;
Definir divisor como entero;
Definir resto como entero;

sumaDivA <- 0;
Para divisor <- 2 Hasta A Con Paso 1 Hacer
resto <- A % divisor;
Si resto = 0 Entonces
sumaDivA <- sumaDivA + divisor;
FinSi
FinPara
suma <- sumaDivA - A +1;
FinSubProceso

Proceso PseintAmigos
Definir A Como Entero;;
Definir B Como Entero;
Definir sumaA Como Entero;
Definir sumaB Como Entero;
Definir resultanteLog Como Logico;

Leer A,B;
sumaA <- SumaDivisores (A);
sumaB <- SumaDivisores (B);
resultanteLog <- (sumaA = B) & (sumaB = A);
Si  resultanteLog = Verdadero Entonces
Escribir "Son Amigos";
Sino
Escribir "No son Amigos";
FinSi

FinProceso