ΠΡΟΓΡΑΜΜΑ ΠΡΩΤΟΙ_ΑΡΙΘΜΟΙ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α,Ι ΠΡΑΓΜΑΤΙΚΕΣ: Μ ΛΟΓΙΚΕΣ: ΕΙΝΑΙ_ΠΡΩΤΟΣ ΑΡΧΗ ΓΡΑΨΕ 'ΕΙΣΑΓΕΤΕ ΕΝΑΝ ΘΕΤΙΚΟ ΑΚΕΡΑΙΟ ΑΡΙΘΜΟ...' ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ Α ΑΝ Α<1 ΤΟΤΕ ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ΠΡΕΠΕΙ ΝΑ ΕΙΝΑΙ ΘΕΤΙΚΟΣ ΑΚΕΡΑΙΟΣ!' ΤΕΛΟΣ_ΑΝ ΜΕΧΡΙΣ_ΟΤΟΥ Α>0 ΕΙΝΑΙ_ΠΡΩΤΟΣ <-- ΑΛΗΘΗΣ ΑΝ Α>3 ΤΟΤΕ ! Οι 1, 2, 3 είναι πρώτοι... ΑΝ Α MOD 2 =0 ΤΟΤΕ ΕΙΝΑΙ_ΠΡΩΤΟΣ <-- ΨΕΥΔΗΣ ! Όλοι οι άρτιοι πάνω από 2 διαιρούνται τουλάχιστον με το 2... ΑΛΛΙΩΣ Μ <-- (Α-1)/2 Ι <-- 3 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ Α MOD Ι =0 ΤΟΤΕ ΕΙΝΑΙ_ΠΡΩΤΟΣ <-- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ Ι <-- Ι+1 ΜΕΧΡΙΣ_ΟΤΟΥ (ΕΙΝΑΙ_ΠΡΩΤΟΣ) Η (Ι-1>Μ) ! Η επανάληψη σταματάει είτε αν βρεθεί διαιρέτης ! είτε αν οι υποψήφιοι διαιρέτες έχουν φθάσει στο μισό του Α ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΑΝ ΕΙΝΑΙ_ΠΡΩΤΟΣ ΤΟΤΕ ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',Α,' ΕΙΝΑΙ ΠΡΩΤΟΣ' ΑΛΛΙΩΣ ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',Α,' ΔΕΝ ΕΙΝΑΙ ΠΡΩΤΟΣ' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ