Βοήθεια σε πρόβλημα!

[ΒΕΙΜ]

Έχω φάει το κεφλαλι μου να καταλάβου που στο καλο έχω κάνει λάθος , απλα μια αριθμομιχανή ήθελα να κάνω για το σχολείο!

ΤΟ ΠΡΟΓΡΑΜΜΑ:
Πρόγραμμα π
Μεταβλητές
Ακέραιες: e, e2, e3
Πραγματικές: αρ1, αρ2, αρΠ1, αρΠ2, αρΠΛ1, αρΠΛ2, τελ_αφ, τελ_προ, αρΔ1, αρΔ2
Χαρακτήρες: ι
Αρχή

ι <-- "ι"

Γράψε "Μενού Επιλογών:"
Γράψε "1. Αφαίρεση"
Γράψε "2. Πρόσθεση"
Γράψε "3. Πολλ/σμός"
Γράψε "4. Διαίρεση"
Γράψε "Διάλεξε μια επιλογή"

Αρχή_επανάληψης
  Διάβασε e
  Αν e > 4 ή e < 1 τότε
  Γράψε "Λάθος, ξανά"
  Τέλος_αν
Μέχρις_ότου e = 3 ή e = 2 ή e = 1 ή e = 4

Αν e = 1 τότε
  Αρχή_επανάληψης
  Γράψε "Πές τους αριθμούς που θές να αφαιρέσεις:"
  Διάβασε αρ1, αρ2
  Γράψε "1. Θές:", αρ1, "-", αρ2
  Γράψε "2. Θές:", αρ2, "-", αρ1
  Διάβασε e2
  Αν e2 <> 1 και e2 <> 2 τότε
    Γράψε "Λάθος, ξανά"
  Τέλος_αν
  Μέχρις_ότου e2 = 1 ή e2 = 2
  Αν e2 = 1 τότε
  Αν αρ1 < 0 και αρ2 < 0 τότε
    τελ_αφ <-- -αρ1 + αρ2
    Γράψε "Παραλήπω αρνητικά πρόσημα, αποτέλεσμα:", τελ_αφ
  αλλιώς_αν αρ1 < 0 τότε
    τελ_αφ <-- -αρ1 - αρ2
    Γράψε "Παραλήπω αρνητικό πρόσημο, αποτέλεσμα:", τελ_αφ
  αλλιώς_αν αρ2 < 0 τότε
    τελ_αφ <-- αρ1 + αρ2
    Γράψε "Παραλήπω αρνητικό πρόσημο, αποτέλεσμα:", τελ_αφ
  αλλιώς
    τελ_αφ <-- αρ1 - αρ2
    Γράψε "Αποτέλεσμα:", τελ_αφ
  Τέλος_αν
  αλλιώς_αν e2 = 2 τότε
  Αν αρ1 < 0 και αρ2 < 0 τότε
    τελ_αφ <-- -αρ2 + αρ1
    Γράψε "Παραλήπω αρνητικό πρόσημο, αποτέλεσμα:", τελ_αφ
  αλλιώς_αν αρ1 < 0 τότε
    τελ_αφ <-- -αρ1 - αρ2
    Γράψε "Παραλήπω αρνητικό πρόσημο, αποτέλεσμα:", τελ_αφ
  αλλιώς_αν αρ2 < 0 τότε
    τελ_αφ <-- αρ2 + αρ1
    Γράψε "Παραλήπω αρνητικό πρόσημο, αποτέλεσμα:", τελ_αφ
  αλλιώς
    τελ_αφ <-- αρ2 - αρ1
    Γράψε "Αποτέλεσμα:", τελ_αφ
  Τέλος_αν
Τέλος_αν

Αν e = 2 τότε
  Γράψε "Γράψε 2 αριθμούς που θές να πρωσθέσεις:"
  Διάβασε αρΠ1, αρΠ2
  Αν αρΠ2 < 0 και αρΠ1 < 0 τότε
  τελ_προ <-- -αρΠ1 - αρΠ2
  Γράψε "Παραλήπω αρνητικά πρόσημα, αποτέλεσμα:", τελ_προ
  αλλιώς_αν αρΠ2 < 0 τότε
  τελ_προ <-- αρΠ1 - αρΠ2
  Γράψε "Παραλήπω αρνητικό πρόσημο, αποτέλεσμα:", τελ_προ
  αλλιώς_αν αρΠ1 < 0 τότε
  τελ_προ <-- -αρΠ1 + αρΠ2
  Γράψε "Παραλήπω αρνητικό πρόσημο, αποτέλεσμα:", τελ_προ
  αλλιώς
  Γράψε "Αποτέλεσμα:", αρΠ1 + αρΠ2
  Τέλος_αν
Τέλος_αν

Αν e = 3 τότε
  Γράψε "Γράψε 2 αριθμούς για πολλ/σμό."
  Διάβασε αρΠΛ1, αρΠΛ2
  Γράψε "Αποτέλεσμα:", αρΠΛ1 * αρΠΛ2
Τέλος_αν
Αν e = 4 τότε
  Αρχή_επανάληψης
  Αρχή_επανάληψης
    Γράψε "Γράψε 2 αριθμούς για να διαιρέσεις:"
    Διάβασε αρΔ1, αρΔ2
    Γράψε "1. Θές:", αρΔ1, "/", αρΔ2
    Γράψε "2. Θές:", αρΔ2, "/", αρΔ1
    Διάβασε e3
    Αν e3 <> 1 και e3 <> 2 τότε
    Γράψε "Λάθος, ξανά"
    Τέλος_αν
  Μέχρις_ότου e3 = 1 ή e3 = 2
  Αν e3 = 1 τότε
    Αν αρΔ2 = 0 τότε
    Γράψε "Όχι δια μηδέν!"
    αλλιώς
    Γράψε "Αποτέλεσμα:", αρΔ1/αρΔ2
    ι <-- "ο"
    Τέλος_αν
  αλλιώς
    Αν αρΔ1 = 0 τότε
     Γράψε "Όχι δια μηδέν!"
    αλλιώς
     Γράψε "Αποτέλεσμα:", αρΔ2/αρΔ1
     ι <-- "ο"
    Τέλος_αν
  Τέλος_αν
  Μέχρις_ότου ι = "ο"
Τέλος_αν
Τέλος_αν
τέλος_προγράμματος

Το error που πέρνω είναι: 

• Σφάλμα Διερμηνευτή: Error: Program error: Cannot perform unaryMinus operation with type n

[Zlaton]

Φαίνεται ότι για τις εντολές εκχώρησης, χρησιμοποιείς τους χαρακτήρες "<--" αντί για τους χαρακτήρες "<-". Αρκεί να αντικαταστήσεις κάθε διπλή παύλα με μονή παύλα, και το πρόγραμμα μάλλον θα λειτουργεί κανονικά.