Άσκηση : συγγραφή συνάρτησης

Γράψτε συνάρτηση που δέχεται ως παραμέτρους δύο
επώνυμα Επ1, Επ2 και επιστρέφει την τιμή:
* 0, αν υπάρχει συνωνυμία
* 1, αν το Επ1 προηγείται αλφαβητικά του Επ2,
* 2, αν το Επ2 προηγείται αλφαβητικά του Επ1.

Λύση

      ΣΥΝΑΡΤΗΣΗ ΕΛ(Επ1, Επ2) : ΑΚΕΡΑΙΑ
      ΜΕΤΑΒΛΗΤΕΣ
             ΧΑΡΑΚΤΗΡΕΣ: Επ1, Επ2
      ΑΡΧΗ
             ΑΝ Επ1 = Επ2 ΤΟΤΕ
                   ΕΛ <-- 0
             ΑΛΛΙΩΣ_ΑΝ Επ1 < Επ2 ΤΟΤΕ
                   ΕΛ <-- 1
             ΑΛΛΙΩΣ
                   ΕΛ <-- 2
             ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ