Άλλα μηνύματα του μέλους Vorbulon σε αυτό το thread

ΠΡΟΓΡΑΜΜΑ Λέξεις
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: πλ
  ΧΑΡΑΚΤΗΡΕΣ: λέξη, αλφ, συ
ΑΡΧΗ
  πλ <- 0
  αλφ <- 'λ'
  συ <- 'ο'
  ΓΡΑΨΕ 'Δώστε λέξεις'
  ΟΣΟ συ <> 'όχι' ΕΠΑΝΑΛΑΒΕ
    ΔΙΑΒΑΣΕ λέξη
    ΑΝ λέξη >= 'κ' ΚΑΙ λέξη < 'λ' ΤΟΤΕ
      πλ <- πλ+1
      ΑΝ λέξη < αλφ ΤΟΤΕ
        αλφ <- λέξη
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'Επιθυμείτε να συνεχίσετε;'
    ΔΙΑΒΑΣΕ συ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ πλ=0 ΤΟΤΕ
    ΓΡΑΨΕ 'Δεν δόθηκαν λέξεις που να αρχίζουν από κ'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Από κ αρχίζουν ', πλ, ' λέξεις και αυτή που προηγείται αλφαβητικά είναι η ',   αλφ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ