ΠΡΟΓΡΑΜΜΑ πρωτος ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:αριθμος,ι ΑΡΧΗ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ Γραψε 'Δωσε εναν θετικο ακεραιο αριθμο' Διαβασε αριθμος ΜΕΧΡΙΣ_ΟΤΟΥ αριθμος>0 ι <-- 2 ΟΣΟ ι<αριθμος ΕΠΑΝΑΛΑΒΕ Αν αριθμος MOD ι = 0 Τοτε ι <-- αριθμος+1 !για τερματισμο τη επαναληψης ΤΕΛΟΣ_ΑΝ ι <-- ι+1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ ι=αριθμος ΤΟΤΕ Γραψε 'Ο αριθμος', αριθμος,'ειναι πρωτος' ΑΛΛΙΩΣ Γραψε 'Ο αριθμος', αριθμος,'δεν ειναι πρωτος' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ πρωτος