ΠΡΟΓΡΑΜΜΑ Διαίρει_και_Βασίλευε
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: count, left, right, m, x
  ΛΟΓΙΚΕΣ: found
ΑΡΧΗ
  left <- 1
  right <- 100
  count <- 0
  found <- ΨΕΥΔΗΣ
  ΔΙΑΒΑΣΕ x
  ΟΣΟ left <= right ΚΑΙ ΟΧΙ found ΕΠΑΝΑΛΑΒΕ
 !Εναλλακτικά: ΟΣΟ count < 7 ΚΑΙ found = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    count <- count + 1
    m <- (left + right) div 2
    ΓΡΑΨΕ m, '  '
    ΑΝ x = m ΤΟΤΕ
      found <- ΑΛΗΘΗΣ
      ΓΡΑΨΕ '     ', count
    ΑΛΛΙΩΣ_ΑΝ x > m ΤΟΤΕ
      left <- m + 1
    ΑΛΛΙΩΣ
      right <- m - 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ ΟΧΙ found ΤΟΤΕ
    ΓΡΑΨΕ '  ΔΕΝ βρέθηκε..'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ