!=======================================================================================================================
! Να υλοποιήσετε πρόγραμμα το οποίο θα δέχεται σαν είσοδο από το χρήστη την τρέχουσα ημέρα της εβδομάδας (ακέραιος 1-7)
! (1 για Κυριακή 2 για ΔΕΥΤΕΡΑ 3 για Τριτη...... 7 για Σαββατο) και έναν ακέραιο αριθμό N. Στη συνέχεια
! θα υπολογίζει και θα εμφανίζει τι μέρα είναι μετά από N ημέρες, όπως και πόσες εβδομάδες πέρασαν μετά από Ν ημέρες.
!=======================================================================================================================
ΠΡΟΓΡΑΜΜΑ Ημέρες
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:i,ΗΜΡ,Ν,νέα
ΧΑΡΑΚΤΗΡΕΣ:ΗΜΕΡΑ[7]
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε τρέχουσα ημέρα (1:ΚΥΡΙΑΚΗ, 2: ΔΕΥΤΕΡΑ, .......7:ΣΑΒΒΑΤΟ)'
ΔΙΑΒΑΣΕ ΗΜΡ
ΜΕΧΡΙΣ_ΟΤΟΥ (ΗΜΡ>=1) ΚΑΙ (ΗΜΡ<=7)
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε πλήθος ημερών Ν'
ΔΙΑΒΑΣΕ Ν
ΜΕΧΡΙΣ_ΟΤΟΥ Ν>=1
ΗΜΕΡΑ[1] <-- 'ΚΥΡΙΑΚΗ'
ΗΜΕΡΑ[2] <-- 'ΔΕΥΤΕΡΑ'
ΗΜΕΡΑ[3] <-- 'ΤΡΙΤΗ'
ΗΜΕΡΑ[4] <-- 'ΤΕΤΑΡΤΗ'
ΗΜΕΡΑ[5] <-- 'ΠΕΜΠΤΗ'
ΗΜΕΡΑ[6] <-- 'ΠΑΡΑΣΚΕΥΗ'
ΗΜΕΡΑ[7] <-- 'ΣΑΒΒΑΤΟ'
ΓΡΑΨΕ 'Σήμερα είναι ',ΗΜΕΡΑ[ΗΜΡ]
ΓΡΑΨΕ 'Μετά από ',Ν, ' ημέρες'
ΓΡΑΨΕ 'Θα έχουν περάσει ',Ν DIV 7, ' εβδομάδες και ',Ν MOD 7 , ' ημέρες.'
ΓΡΑΨΕ_ 'Η μέρα θα είναι: '
νέα <-- (ΗΜΡ + Ν) MOD 7
ΓΡΑΨΕ ΗΜΕΡΑ[νέα]
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ