Πρόγραμμα πρώτοι_αριθμοι
μεταβλητές
ακέραιες: α,β,γ,δ
Αρχή
γράψε 'Δωστε τον αριθμο που θελετε:'
διάβασε α
β <-- α+1
αν α MOD 2 = 0 τότε
αν α MOD 3 = 0 τότε
γράψε ' Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 5 = 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 7 = 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς
γράψε 'Ο ',α,' ειναι.'
τελος_αν
αλλιως_αν α MOD 3 = 0 τότε
αν α MOD 2 = 0 τότε
γράψε ' Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 5 = 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 7 = 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς
γράψε 'Ο ',α,' ειναι.'
τελος_αν
αλλιως_αν α MOD 5 = 0 τοτε
αν α MOD 3 = 0 τότε
γράψε ' Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 2= 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 7 = 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς
γράψε 'Ο ',α,' ειναι.'
τελος_αν
αλλιως_αν α MOD 7= 0 τοτε
αν α MOD 3 = 0 τότε
γράψε ' Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 2= 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς_αν α MOD 5= 0 τοτε
γράψε'Ο ',α,' δεν ειναι.'
αλλιώς
γράψε 'Ο ',α,' ειναι.'
τελος_αν
τελος_αν
τελος_προγραμματος