! ================================================================
! Να γίνει πρόγραμμα που να ζητάει:
! Α) Έναν ακέραιο αριθμό ΗΜΕΡΑ (από 1 ως 7).
! Β) Έναν ακέραιο αριθμό ΗΜΕΡΟΜΗΝΙΑ (από 1 ως 31).
! Γ) Έναν ακέραιο αριθμό ΜΗΝΑΣ (από 1 ως 12).
! Δ) Έναν ακέραιο αριθμό ΕΤΟΣ.
! Στη συνέχεια να εμφανίζει την αντίστοιχη πλήρη ημερομηνία
! ολογράφως. Δηλαδή για είσοδο:
! ΗΜΕΡΑ=6 ΗΜΕΡΟΜΗΝΙΑ=25 ΜΗΝΑΣ=12 ΕΤΟΣ=2004
! να δίνει σαν έξοδο:
! Σάββατο 25 Δεκεμβρίου 2004
! ================================================================
ΠΡΟΓΡΑΜΜΑ Μετατροπή_ημερομηνίας
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ημέρα, ημερομηνία, μήνας, έτος
ΧΑΡΑΚΤΗΡΕΣ: ημέρα_λέξη, μήνας_λέξη
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε την ημέρα:'
ΔΙΑΒΑΣΕ ημέρα
ΓΡΑΨΕ 'Δώσε την ημερομηνία:'
ΔΙΑΒΑΣΕ ημερομηνία
ΓΡΑΨΕ 'Δώσε το μήνα:'
ΔΙΑΒΑΣΕ μήνας
ΓΡΑΨΕ 'Δώσε το έτος:'
ΔΙΑΒΑΣΕ έτος
ΕΠΙΛΕΞΕ ημέρα
ΠΕΡΙΠΤΩΣΗ 1
ημέρα_λέξη <-- 'Δευτέρα '
ΠΕΡΙΠΤΩΣΗ 2
ημέρα_λέξη <-- 'Τρίτη '
ΠΕΡΙΠΤΩΣΗ 3
ημέρα_λέξη <-- 'Τετάρτη '
ΠΕΡΙΠΤΩΣΗ 4
ημέρα_λέξη <-- 'Πέμπτη '
ΠΕΡΙΠΤΩΣΗ 5
ημέρα_λέξη <-- 'Παρασκευή '
ΠΕΡΙΠΤΩΣΗ 6
ημέρα_λέξη <-- 'Σάββατο '
ΠΕΡΙΠΤΩΣΗ 7
ημέρα_λέξη <-- 'Κυριακή '
ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
ημέρα_λέξη <-- '[Λάθος ημέρα] '
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΕΠΙΛΕΞΕ μήνας
ΠΕΡΙΠΤΩΣΗ 1
μήνας_λέξη <-- ' Ιανουαρίου '
ΠΕΡΙΠΤΩΣΗ 2
μήνας_λέξη <-- ' Φεβρουαρίου '
ΠΕΡΙΠΤΩΣΗ 3
μήνας_λέξη <-- ' Μαρτίου '
ΠΕΡΙΠΤΩΣΗ 4
μήνας_λέξη <-- ' Απριλίου '
ΠΕΡΙΠΤΩΣΗ 5
μήνας_λέξη <-- ' Μαΐου '
ΠΕΡΙΠΤΩΣΗ 6
μήνας_λέξη <-- ' Ιουνίου '
ΠΕΡΙΠΤΩΣΗ 7
μήνας_λέξη <-- ' Ιουλίου '
ΠΕΡΙΠΤΩΣΗ 8
μήνας_λέξη <-- ' Αυγούστου '
ΠΕΡΙΠΤΩΣΗ 9
μήνας_λέξη <-- ' Σεπτεμβρίου '
ΠΕΡΙΠΤΩΣΗ 10
μήνας_λέξη <-- ' Οκτωβρίου '
ΠΕΡΙΠΤΩΣΗ 11
μήνας_λέξη <-- ' Νοεμβρίου '
ΠΕΡΙΠΤΩΣΗ 12
μήνας_λέξη <-- ' Δεκεμβρίου '
ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
μήνας_λέξη <-- ' [Λάθος μήνας] '
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΓΡΑΨΕ 'Πλήρης μορφή: ', ημέρα_λέξη, ημερομηνία, μήνας_λέξη, έτος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μετατροπή_ημερομηνίας