Το παρακάτω πρόγραμμα δέχεται έναν ακέραιο αριθμό (μεγαλύτερο του 2) στην είσοδο. Βρίσκει αν είναιο πρώτος ή σύνθετος και τυπώνει το ανάλογο μύνημα.
1. Αρχικα ελέγχει αν ο αριθμός είναι άρτιος (διαιρείται με το 2).
2. Έπειτα ελέγχει αν υπάρχουν περιττοί διαιρέτες (αυξάνει το βήμα κατά 2)
3. Το ΟΡΙΟ αναζήτησης είναι το ακέραιο μέρος της τετραγωνικής ρίζας του αρχικού αριθμού.
4. Αν βρει κάποιο διαιρέτη, τερματίζει το βρόγχο (break) θέτοντας το Ι ίσο με το ΟΡΙΟ.
ΠΡΟΓΡΑΜΜΑ ΠΡΩΤΟΣ_ΑΡΙΘΜΟΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ,ΥΠΟΛΟΙΠΟ,Ι,ΟΡΙΟ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΕΝΑΝ ΑΚΕΡΑΙΟ ΑΡΙΘΜΟ ΜΕΓΑΛΥΤΕΡΟ ΤΟΥ 2'
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΑΝ ΑΡΙΘΜΟΣ < 3 ΤΟΤΕ
ΓΡΑΨΕ 'ΛΑΘΟΣ ΔΕΔΟΜΕΝΑ ΠΡΟΣΠΑΘΗΣΤΕ ΞΑΝΑ'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΑΡΙΘΜΟΣ > 0
ΟΡΙΟ <-- Α_Μ(Τ_Ρ(ΑΡΙΘΜΟΣ))
Ι <-- 1
ΥΠΟΛΟΙΠΟ <-- 1
ΑΝ ΑΡΙΘΜΟΣ MOD 2 = 0 ΤΟΤΕ
Ι <-- ΟΡΙΟ
ΥΠΟΛΟΙΠΟ <-- 0
ΤΕΛΟΣ_ΑΝ
ΟΣΟ ΥΠΟΛΟΙΠΟ <> 0 ΚΑΙ Ι < ΟΡΙΟ ΕΠΑΝΑΛΑΒΕ
Ι <-- Ι+2
ΥΠΟΛΟΙΠΟ <-- ΑΡΙΘΜΟΣ MOD Ι
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΥΠΟΛΟΙΠΟ = 0 ΤΟΤΕ
ΓΡΑΨΕ 'Ο',ΑΡΙΘΜΟΣ,'ΕΙΝΑΙ ΣΥΝΘΕΤΟΣ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Ο',ΑΡΙΘΜΟΣ,'ΕΙΝΑΙ ΠΡΩΤΟΣ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ