ΠΡΟΓΡΑΜΜΑ αναζήτηση
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α[9], i, j, k, pos, x
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[9], ΟΝ2[9] 
  ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 9
    ΔΙΑΒΑΣΕ ΟΝ[i] 
    ΟΝ2[i] <- '*'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  j <- 1
  ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 9

    pos <- 0
    done <- ΨΕΥΔΗΣ
    i <- 1
    ΟΣΟ (i <= 9) ΚΑΙ (done = ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
      ΑΝ ΟΝ2[i] = ΟΝ[k] ΤΟΤΕ
        pos <- i
        done <- ΑΛΗΘΗΣ
      ΑΛΛΙΩΣ
        i <- i + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΑΝ done = ΨΕΥΔΗΣ ΤΟΤΕ
      ΟΝ2[j] <- ΟΝ[k] 
      j <- j + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ j - 1
    ΓΡΑΨΕ ΟΝ2[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 
!ArxeioEisodou
ΙΩΑΝΝΑ
ΝΙΚΟΣ
ΘΑΝΑΣΗΣ
ΑΝΑΣΤΑΣΙΑ
ΓΙΑΝΝΗΣ
ΝΙΚΟΣ
ΑΠΟΣΤΟΛΗΣ
ΜΑΡΙΑ
ΑΝΑΣΤΑΣΙΑ