ΠΡΟΓΡΑΜΜΑ ArrayValidation
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, A[5] 
  ΛΟΓΙΚΕΣ: valid
ΑΡΧΗ
  i <- 1
  ΟΣΟ i <= 5 ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ "A[", i, "] : "
    ΔΙΑΒΑΣΕ A[i] 
 ! Συγκρίνουμε το νέο στοιχείο με όλα τα προηγούμενα
    valid <- ΑΛΗΘΗΣ ! Έστω οτι δόθηκε στοιχείο διαφορετικό απο τα προηγούμενα
    j <- 1
    ΟΣΟ j < i ΚΑΙ valid = ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ
      ΑΝ A[i] = A[j] ΤΟΤΕ
        valid <- ΨΕΥΔΗΣ  ! Βρέθηκε ίδιο στοιχείο
      ΑΛΛΙΩΣ
        j <- j + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ! Επόμενη εισαγωγή ΜΟΝΟ αν εισάγαμε στοιχείο
 ! διαφορετικό απο τα προηγούμενα, αλλιώς το i
 ! παραμένει στην ίδια τιμή και το στοιχείο
 ! ζητείται και πάλι στην επόμενη επανάληψη
    ΑΝ valid = ΑΛΗΘΗΣ ΤΟΤΕ ! Αν το στοιχείο είναι διαφορετικό απο τα
      i <- i + 1 ! προηγούμενα, προχωράμε στο επόμενο στοιχείο
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ "A[", i, "] : ", A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ