!=======================================================================
! ΤΟ ΠΑΡΑΚΑΤΩ ΠΡΟΓΡΑΜΜΑ ΔΕΧΕΤΑΙ ΣΑΝ ΕΙΣΟΔΟ ΕΝΑΝ ΑΚΕΡΑΙΟ ΚΑΙ ΕΜΦΑΝΙΖΕΙ
! ΟΛΟΥΣ ΤΟΥΣ ΤΕΛΕΙΟΥΣ ΑΡΙΘΜΟΥΣ ΜΕΧΡΙ ΤΟΝ ΑΚΕΡΑΙΟ ΠΟΥ ΔΟΘΗΚΕ. ΤΕΛΕΙΟΣ
! ΛΕΓΕΤΑΙ ΕΝΑΣ ΑΡΙΘΜΟΣ ΠΟΥ ΕΙΝΑΙ ΙΣΟΣ ΜΕ ΤΟ ΑΘΡΟΙΣΜΑ ΟΛΩΝ ΤΩΝ ΓΝΗΣΙΩΝ
! ΔΙΑΙΡΕΤΩΝ ΤΟΥ.
!=======================================================================
ΠΡΟΓΡΑΜΜΑ ΤΕΛΕΙΟΙ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: N,I,J,P,S,Q
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΤΕ ΕΝΑΝ ΑΚΕΡΑΙΟ'
ΔΙΑΒΑΣΕ N
ΓΙΑ P ΑΠΟ 1 ΜΕΧΡΙ N
S <-- 0
Q <-- P DIV 2
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ Q
ΑΝ P MOD I =0 ΤΟΤΕ
S <-- S+I
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ S=P ΤΟΤΕ
ΓΡΑΨΕ 'Ο ',P,' ΕΙΝΑΙ ΤΕΛΕΙΟΣ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ