Αλγόριθμος Οργανισμός
πλ_μικρ <-- 0
πλ_μεγ <-- 0
Sμικρ <-- 0
Sμεγ <-- 0
Αρχή_επανάληψης
Διάβασε ΠΟΣΟ
Μέχρις_ότου ΠΟΣΟ > 5000000
Διάβασε ΟΝ_ΕΡΓ
Όσο ΟΝ_ΕΡΓ <> "ΤΕΛΟΣ" και ΠΟΣΟ >= 200000 επανάλαβε
Διάβασε ΠΡΟΥΠ
Άν ΠΡΟΥΠ < 300000 τότε
ΕΠΙΔ <- ΠΡΟΥΠ*(60/100)
αλλιώς
ΕΠΙΔ <- ΠΡΟΥΠ*(70/100)
τέλος_αν
Άν ΕΠΙΔ <= ΠΟΣΟ τότε
ΠΟΣΟ <-- ΠΟΣΟ - ΕΠΙΔ
Εμφάνισε ΟΝ_ΕΡΓ,ΕΠΙΔ
Άν ΠΡΟΥΠ <= 299000 τότε
πλ_μικρ <-- πλ_μικρ + 1
Sμικρ <- Sμικρ + ΕΠΙΔ
αλλιώς
πλ_μεγ <-- πλ_μεγ + 1
Sμεγ <- Sμεγ + ΕΠΙΔ
τέλος_αν
τέλος_αν
τέλος_επανάληψης
Εμφάνισε πλ_μικρ,Sμικρ,πλ_μεγ,Sμεγ
Άν ΠΟΣΟ > 0 τότε
Εμφάνισε ΠΟΣΟ
τέλος_αν
Τέλος Οργανισμός