Συγγραφή διαδικασίας

Γράψτε διαδικασία που διαβάζει το μέσο μεταφοράς
που επιλέξατε για τη μετακίνησή σας (επιτρεπτές
τιμές εισόδου : αεροπλάνο, πλοίο, λεωφορείο,
τρένο).

Λύση

ΔΙΑΔΙΚΑΣΙΑ ΜΜΜ (Μέσο)
ΜΕΤΑΒΛΗΤΕΣ
      ΧΑΡΑΚΤΗΡΕΣ : Μέσο
ΑΡΧΗ
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
          ΓΡΑΨΕ 'Δώσε το μέσο μεταφοράς'
          ΔΙΑΒΑΣΕ Μέσο
      ΜΕΧΡΙΣ_ΟΤΟΥ (Μέσο = 'αεροπλάνο') Ή 
                      (Μέσο = 'πλοίο') Ή (Μέσο = 'λεωφορείο') Ή
                      (Μέσο = 'τρένο')
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ