ΠΡΟΓΡΑΜΜΑ  ΠΡΩΤΟΙ_ΑΡΙΘΜΟΙ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α,Ι
  ΠΡΑΓΜΑΤΙΚΕΣ: Μ
  ΛΟΓΙΚΕΣ: ΕΙΝΑΙ_ΠΡΩΤΟΣ

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