ΠΡΟΓΡΑΜΜΑ Α1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: j, i
ΠΡΑΓΜΑΤΙΚΕΣ: Π[5], β
ΑΡΧΗ

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ "Δώστε το ', i, 'ο στοιχείο'
    ΔΙΑΒΑΣΕ Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
    ΓΙΑ j ΑΠΟ 5 ΜΕΧΡΙ (i+1) ΜΕ_ΒΗΜΑ -1
        ΑΝ Π[j] < Π[j - 1] ΤΟΤΕ
           β <- Π[j]
           Π[j] <- Π[j - 1]
           Π[j - 1] <- β
        ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ Π[j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ