Suma divizorilor unui numar dat

// Declaram variabilele și tipul lor

Declare Integer n, i, suma

// Scriem la consola

Display "Introduceti numarul de analizat? : "

// Introducem n de la tastatura

Input n

// Initializare suma= 0

Set suma = 0

// Iterare de la 1 la n

For i = 1 To n

    // Criteriu divizibilitate

    If n MOD i == 0 Then

        // Individualizarea fiecarui care satisface criteriul

        Display "Divizor : ", i

        // Calcularea sumei

        Set suma = suma + i

    End If

End For

Display "Suma divizorilor este : ", suma