ΠΡΟΓΡΑΜΜΑ ΔΙΑΧΩΡΙΣΜΟΣ_ΠΙΝΑΚΑ
ΣΤΑΘΕΡΕΣ
  g=10
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: d,left
  ΧΑΡΑΚΤΗΡΕΣ: b[g],right
ΑΡΧΗ
  για d από 1 μέχρι g
    γράψε 'δωστε δεδομενα'
    διάβασε b[d]
  τέλος_επανάληψης

  για d από 1 μέχρι g
    γράψε_ b[d]
  τέλος_επανάληψης
  γράψε
  γραψε

  για left από 1 μέχρι g-1
    για d από 1 μέχρι g - left + 1
      αν b[d]> b[g - left + 1] ΤΟΤΕ
        right <-- b[g - left + 1]
        b[g - left + 1] <-- b[d]
        b[d] <-- right
      τέλος_αν
    τέλος_επανάληψης
  τέλος_επανάληψης

  ΚΑΛΕΣΕ ΣΤΑΤΙΣΤΙΚΑ_ΔΙΑΤΑΞΗΣ(b,d)

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΣΤΑΤΙΣΤΙΚΑ_ΔΙΑΤΑΞΗΣ (b,d)
ΣΤΑΘΕΡΕΣ
  g = 10
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: b[g]
  ΑΚΕΡΑΙΕΣ: d,x
ΑΡΧΗ
  ΓΡΑΨΕ 'ΔΩΣΤΕ ΠΟΙΟ ΣΗΜΕΙΟ ΤΟΥ ΠΙΝΑΚΑ ΠΟΥ ΘΕΛΕΤΕ ΝΑ ΔΕΙΤΕ ?'
  ΔΙΑΒΑΣΕ x  
  αν x>g ΤΟΤΕ
   ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΔΩΣΤΕ ΣΩΣΤΟ ΣΗΜΕΙΟ ΤΟΥ ΠΙΝΑΚΑ ΠΟΥ ΘΕΛΕΤΕ ΝΑ ΔΕΙΤΕ ?'
   ΔΙΑΒΑΣΕ x
  τελος_αν  
  για d από 1 μέχρι g                          
    ΑΝ x = d ΤΟΤΕ
      γράψε 'ΤΟ ΣΗΜΕΙΟ ΠΟΥ ΔΙΑΛΕΞΑΤΕ ΠΕΡΙΕΧΕΙ ΤΟ ΓΡΑΜΜΑ'
      γράψε b[d]
    τέλος_αν
  τέλος_επανάληψης
τελος_διαδικασιας