ΠΡΟΓΡΑΜΜΑ Μέσοι_Όροι
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: άριστοι, πλήθος, σ, i, βαθμός
  ΧΑΡΑΚΤΗΡΕΣ: επίθετο, επίθετο_χειρότερου
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ, Σύνολο, χειρότερος, ΓΜΟ, ποσοστό
ΑΡΧΗ
  άριστοι <- 0
  πλήθος <- 0
  χειρότερος <- 100
  Σύνολο <- 0
  ΓΡΑΨΕ
  ΓΡΑΨΕ " Επίθετο μαθητή [ Πατήστε το πλήκτρο < Enter > για τερματισμό ] : "
  ΔΙΑΒΑΣΕ επίθετο
  ΓΡΑΨΕ
  ΟΣΟ επίθετο <> "" ΕΠΑΝΑΛΑΒΕ
    σ <- 0
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Η βαθμολογία του μαθητή ", επίθετο, " στα 4 μαθήματα κατεύθυνσης :"
    ΓΡΑΨΕ " ----------------------------------------------------------------------"
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        ΓΡΑΨΕ
        ΓΡΑΨΕ " Βαθμός ", i, "ου μαθήματος : "
        ΔΙΑΒΑΣΕ βαθμός
      ΜΕΧΡΙΣ_ΟΤΟΥ βαθμός >= 0 ΚΑΙ βαθμός <= 20
      σ <- σ + βαθμός
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΜΟ <- σ/4
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Ο μέσος όρος του μαθητή ", επίθετο, " είναι : ", ΜΟ
    πλήθος <- πλήθος + 1
    Σύνολο <- Σύνολο + ΜΟ
    ΑΝ ΜΟ > 18 ΤΟΤΕ
      άριστοι <- άριστοι + 1
    ΤΕΛΟΣ_ΑΝ
    ΑΝ χειρότερος > ΜΟ ΤΟΤΕ
      επίθετο_χειρότερου <- επίθετο
      χειρότερος <- ΜΟ
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Επίθετο μαθητή [ Πατήστε το πλήκτρο < Enter > για τερματισμό ] : "
    ΔΙΑΒΑΣΕ επίθετο
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ πλήθος > 0 ΤΟΤΕ
    ΓΜΟ <- Σύνολο/πλήθος
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Το πλήθος των μαθητών είναι : ", πλήθος
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Ο μαθητής ", επίθετο_χειρότερου, " σημείωσε το χαμηλότερο μέσο όρο : ", χειρότερος
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Ο μέσος όρος όλων των μαθητών είναι : ", ΓΜΟ
    ποσοστό <- άριστοι*100/πλήθος
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Το ποσοστό των άριστων μαθητών (Μέσος όρος > 18) είναι : ", ποσοστό, " %, (", άριστοι, "/", πλήθος, ")"
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ
    ΓΡΑΨΕ " Δεν δόθηκε κανένα επίθετο μαθητή."
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μέσοι_Όροι