ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Γ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, A[100]
  ΛΟΓΙΚΕΣ: valid
ΑΡΧΗ
  i <- 1
  ΟΣΟ i <= 6 ΕΠΑΝΑΛΑΒΕ
    valid <- ΑΛΗΘΗΣ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ "A[", i, "] : "
      ΔΙΑΒΑΣΕ A[i]
    ΜΕΧΡΙΣ_ΟΤΟΥ A[i]>0 ΚΑΙ A[i]<=45
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ i - 1
      ΑΝ A[i] = A[j] ΤΟΤΕ
        valid <- ΨΕΥΔΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ valid = ΑΛΗΘΗΣ ΤΟΤΕ
      i <- i + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6
    ΓΡΑΨΕ "A[", i, "] : ", A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ