ΠΡΟΓΡΑΜΜΑ ΥΨΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΠΛΗΘΟΣ, ΑΘΡ, ΥΨΟΣ
ΑΡΧΗ
  ΠΛΗΘΟΣ <- 0
  ΑΘΡ <- 0
Αρχή_επανάληψης
Αρχή_επανάληψης

Μέχρις_ότου      0
Αν ΥΨΟΣ      τότε
  ΠΛΗΘΟΣ <- ΠΛΗΘΟΣ + 1
  ΑΘΡ <- ΑΘΡ + ΥΨΟΣ
Τέλος_αν
Μέχρις_ότου ΥΨΟΣ
Αν ΠΛΗΘΟΣ <> 0 τότε
ΓΡΑΨΕ 'ΔΟΘΗΚΕ ΥΨΟΣ ΓΙΑ ', ΠΛΗΘΟΣ, ' ΜΑΘΗΤΕΣ'
ΓΡΑΨΕ 'ΜΕΣΟΣ ΟΡΟΣ ΥΨΟΥΣ ', ΑΘΡ/ΠΛΗΘΟΣ
αλλιώς
ΓΡΑΨΕ 'ΔΕ ΔΟΘΗΚΕ ΚΑΝΕΝΑ ΥΨΟΣ'
Τέλος_αν
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ