ΠΡΟΓΡΑΜΜΑ Εταιρεία
ΜΕΤΑΒΛΗΤΕΣ
 ΧΑΡΑΚΤΗΡΕΣ: Ετ[50]
 ΠΡΑΓΜΑΤΙΚΕΣ: ΕΙΣ[50], ΜΟ, sum
 ΑΚΕΡΑΙΕΣ: i
ΑΡΧΗ
 ΓΡΑΨΕ 'Δώσε 50 ονόματα εταιρειών και '
 ΓΡΑΨΕ 'τις αντίστοιχες εισπράξεις τους'
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
 ΔΙΑΒΑΣΕ Ετ[i], ΕΙΣ[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 sum <- 0
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
 sum <- sum + ΕΙΣ[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΜΟ <- sum/50
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
 ΑΝ ΕΙΣ[i] > ΜΟ ΤΟΤΕ
 ΓΡΑΨΕ Ετ[i]
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
 ΑΝ ΕΙΣ[i] < ΜΟ ΤΟΤΕ
 ΓΡΑΨΕ Ετ[i]
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Εταιρεία