Άμα είναι παραπάνω βγάζει λάθος αποτέλεσμα. . . όπως για παράδειγμα -1

Υπάρχει κάποια ιδέα για το πως να προχωρήσω πέρα από το 8ο αποτέλεσμα σε αυτόν τον αλγόριθμο???
ΠΡΟΓΡΑΜΜΑ ΤΕΛΕΙΟΙ_ΑΡΙΘΜΟΙ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: χ, απλήθος_διαιρετών, διαιρέτης, βπρωτος, βπλήθος_διαιρετών
ΠΡΑΓΜΑΤΙΚΕΣ: τελειος
ΑΡΧΗ
χ <- 2
τελειος <- (2^(χ - 1)*((2^χ) - 1))
ΓΡΑΨΕ τελειος
χ <- 3
ΟΣΟ χ <= 99 ΕΠΑΝΑΛΑΒΕ
απλήθος_διαιρετών <- 0
διαιρέτης <- 2
ΑΝ χ MOD διαιρέτης = 0 ΤΟΤΕ
απλήθος_διαιρετών <- απλήθος_διαιρετών + 1
ΑΛΛΙΩΣ
διαιρέτης <- διαιρέτης + 1
ΤΕΛΟΣ_ΑΝ
ΟΣΟ απλήθος_διαιρετών < 1 ΚΑΙ διαιρέτης <= Α_Μ(χ^(1/2)) ΕΠΑΝΑΛΑΒΕ
ΑΝ χ MOD διαιρέτης = 0 ΤΟΤΕ
απλήθος_διαιρετών <- απλήθος_διαιρετών + 1
ΑΛΛΙΩΣ
διαιρέτης <- διαιρέτης + 2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ απλήθος_διαιρετών < 1 ΤΟΤΕ
βπρωτος <- Α_Μ(2^χ - 1)
βπλήθος_διαιρετών <- 0
διαιρέτης <- 2
ΑΝ βπρωτος MOD διαιρέτης = 0 ΤΟΤΕ
βπλήθος_διαιρετών <- βπλήθος_διαιρετών + 1
ΑΛΛΙΩΣ
διαιρέτης <- διαιρέτης + 1
ΤΕΛΟΣ_ΑΝ
ΟΣΟ βπλήθος_διαιρετών < 1 ΚΑΙ διαιρέτης <= Α_Μ(βπρωτος^(1/2)) ΕΠΑΝΑΛΑΒΕ
ΑΝ βπρωτος MOD διαιρέτης = 0 ΤΟΤΕ
βπλήθος_διαιρετών <- βπλήθος_διαιρετών + 1
ΑΛΛΙΩΣ
διαιρέτης <- διαιρέτης + 2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βπλήθος_διαιρετών < 1 ΤΟΤΕ
τελειος <- 2^(χ - 1)*((2^χ) - 1)
ΓΡΑΨΕ τελειος
χ <- χ + 2
ΑΛΛΙΩΣ
χ <- χ + 2
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
χ <- χ + 2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ