ΠΡΟΓΡΑΜΜΑ Ασκ_3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΒΑΘ[100],i, Ν, πλήθος, pos
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[100]
  ΛΟΓΙΚΕΣ: found
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε πλήθος στοιχείων πίνακα: 20 έως 100'
    ΔΙΑΒΑΣΕ Ν
  ΜΕΧΡΙΣ_ΟΤΟΥ (Ν >= 20) ΚΑΙ (Ν <= 100)
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώσε όνομα και βαθμό',i,'μαθητή'
    ΔΙΑΒΑΣΕ ΟΝ[i],ΒΑΘ[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  found <- ΨΕΥΔΗΣ
  πλήθος <- 0
  i <- 1
  ΟΣΟ (i <= Ν) ΚΑΙ (found = ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
    ΑΝ ΒΑΘ[i]= 18 ΤΟΤΕ
      πλήθος <- πλήθος + 1
      ΑΝ πλήθος = 3 ΤΟΤΕ
        found <- ΑΛΗΘΗΣ
        pos <- i
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
    i <- i+1
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΑΝ πλήθος = 0 ΤΟΤΕ
   ΓΡΑΨΕ 'Ο βαθμός 18 δεν βρέθηκε'
 ΤΕΛΟΣ_ΑΝ
 ΑΝ found = Αληθής ΤΟΤΕ
   ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ pos
     ΑΝ ΒΑΘ[i] = 18 ΤΟΤΕ
       ΓΡΑΨΕ ΟΝ[i]
     ΤΕΛΟΣ_ΑΝ
   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ