ΠΡΟΓΡΑΜΜΑ  πρωτοι_αριθμοι
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:αρ
  ΧΑΡΑΚΤΗΡΕΣ:απ
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Δωσε εναν αριθμο μεγαλυτερο του 1'
      ΔΙΑΒΑΣΕ αρ
    ΜΕΧΡΙΣ_ΟΤΟΥ αρ>1
    ΑΝ (αρ=2 η αρ=3 η αρ=5)η(αρ MOD 2<>0 και αρ MOD 3<>0 και αρ MOD 5<>0) τότε !ΕΛΕΓΧΕΤΑΙ ΑΝ ΕΙΝΑΙ ΠΡΩΤΟΣ ΜΟΝΟ ΜΕ ΜΙΑ ΣΥΝΘΗΚΗ
      ΓΡΑΨΕ 'ο αριθμος',αρ,'ειναι πρωτος'
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ο αριθμος',αρ,'δεν ειναι πρωτος'
    ΤΕΛΟΣ_ΑΝ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'ΞΑΝΑ?(ναι η οχι)'
      ΔΙΑΒΑΣΕ απ
    ΜΕΧΡΙΣ_ΟΤΟΥ απ='ναι' η απ='οχι'
  ΜΕΧΡΙΣ_ΟΤΟΥ απ='οχι'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ