ΠΡΟΓΡΑΜΜΑ PROTOS ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ,Ι ΛΟΓΙΚΕΣ: ΠΡΩΤΟΣ ΑΡΧΗ ΠΡΩΤΟΣ <-- ΑΛΗΘΗΣ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'ΔΩΣΕ ΑΡΙΘΜΟ' ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΡΙΘΜΟΣ>0) ΑΝ (ΑΡΙΘΜΟΣ>1) ΤΟΤΕ ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ ΑΡΙΘΜΟΣ-1 ΑΝ ((ΑΡΙΘΜΟΣ MOD Ι)=0) ΤΟΤΕ ΠΡΩΤΟΣ <-- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ (ΠΡΩΤΟΣ=ΑΛΗΘΗΣ) ΤΟΤΕ ΓΡΑΨΕ 'Ο',ΑΡΙΘΜΟΣ,'ΕΝΑΙ ΠΡΩΤΟΣ' ΑΛΛΙΩΣ ΓΡΑΨΕ 'Ο',ΑΡΙΘΜΟΣ,'ΔΕΝ ΕΙΝΑΙ ΠΡΩΤΟΣ' ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ ΓΡΑΨΕ 'ΕΔΩΣΕΣ ΤΟ 1' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ