ΠΡΟΓΡΑΜΜΑ πρώτοι
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, Μ, j
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ " ΔΩΣΤΕ ΕΝΑΝ ΘΕΤΙΚΟ ΑΡΙΘΜΟ [ 0 ΓΙΑ ΤΕΛΟΣ] : "
    ΔΙΑΒΑΣΕ i
    ΑΝ i < 0 ΤΟΤΕ
      ΓΡΑΨΕ " Δόθηκε αρνητικός αριθμός !"
    ΤΕΛΟΣ_ΑΝ
    ΑΝ i = 0 ΤΟΤΕ
      ΓΡΑΨΕ " Δόθηκε ο αριθμός 0 !"
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ i >= 0
  ΟΣΟ i > 1 ΕΠΑΝΑΛΑΒΕ
    Μ <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ i
      ΑΝ i mod j = 0 ΤΟΤΕ
        ΓΡΑΨΕ " O ΑΡΙΘΜΟΣ ", j, " ΕΙΝΑΙ ΔΙΑΙΡΕΤΗΣ ΤΟΥ ", i, "         ", i, " / ", j, " = ", i div j
        Μ <- Μ + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ " ----------------------------------"
    ΑΝ Μ = 2 ΤΟΤΕ
      ΓΡΑΨΕ " Ο ΑΡΙΘΜΟΣ ", i, " ΕΙΝΑΙ ΠΡΩΤΟΣ ΔΙΟΤΙ ΕΧΕΙ ΜΟΝΟ 2 ΔΙΑΙΡΕΤΕΣ"
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ " Ο ΑΡΙΘΜΟΣ ", i, " ΕΧΕΙ ", Μ, " ΔΙΑΙΡΕΤΕΣ"
      ΓΡΑΨΕ " Ο ΑΡΙΘΜΟΣ ", i, " ΔΕΝ ΕΙΝΑΙ ΠΡΩΤΟΣ [ > 2 ΔΙΑΙΡΕΤΕΣ ]"
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ " ----------------------------------"
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ " ΔΩΣΤΕ ΕΝΑΝ ΘΕΤΙΚΟ ΑΡΙΘΜΟ [ 0 ΓΙΑ ΤΕΛΟΣ] : "
      ΔΙΑΒΑΣΕ i
      ΑΝ i < 0 ΤΟΤΕ
        ΓΡΑΨΕ " Δόθηκε αρνητικός αριθμός !"
      ΤΕΛΟΣ_ΑΝ
      ΑΝ i = 0 ΤΟΤΕ
        ΓΡΑΨΕ " Δόθηκε ο αριθμός 0 !"
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ i >= 0
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ " Ο αλγόριθμος τελείωσε. "
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ πρώτοι