! ==================================
! Να γίνει πρόγραμμα που να διαβάζει
! έναν ακέραιο αριθμό και να
! εμφανίζει ένα μήνυμα σχετικά με το
! αν είναι άρτιος ή περιττός.
! ΣΗΜΕΙΩΣΗ:
! - Ο έλεγχος για το αν ο αριθμός
! είναι άρτιος ή περιττός να
! γίνεται με κλήση ΛΟΓΙΚΗΣ
! ΣΥΝΑΡΤΗΣΗΣ.
! ==================================
ΠΡΟΓΡΑΜΜΑ Άρτιος_ή_περιττός
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: x
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε έναν ακέραιο αριθμό:'
ΔΙΑΒΑΣΕ x
ΑΝ Είναι_άρτιος(x)=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο αριθμός είναι άρτιος'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Ο αριθμός είναι περιττός'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Άρτιος_ή_περιττός
!-----------------------------------
ΣΥΝΑΡΤΗΣΗ Είναι_άρτιος(α): ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α
ΑΡΧΗ
ΑΝ α MOD 2 = 0 ΤΟΤΕ
Είναι_άρτιος <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
Είναι_άρτιος <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!-----------------------------------