ΠΡΟΓΡΑΜΜΑ Ασκ_1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ι, pos
ΠΡΑΓΜΑΤΙΚΕΣ: M[100]
ΧΑΡΑΚΤΗΡΕΣ: name, ΟΝ[100]
ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100
    ΓΡΑΨΕ 'Δώσε όνομα και μισθό υπαλλήλου', ι
    ΔΙΑΒΑΣΕ ΟΝ[ι], Μ[ι]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Δώσε το προς αναζήτηση όνομα'
  ΔΙΑΒΑΣΕ name
  ΟΣΟ (name <> 'ΤΕΛΟΣ') ΕΠΑΝΑΛΑΒΕ
    ι <- 1
    done <- Ψευδής
    ΟΣΟ (ι <= 100) και (done = Ψευδής) ΕΠΑΝΑΛΑΒΕ
      ΑΝ (name = ON[ι]) ΤΟΤΕ
        done <- Αληθής
        pos <- ι
      ΑΛΛΙΩΣ
        ι <- ι + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ (done = Αληθής) ΤΟΤΕ
      ΓΡΑΨΕ 'Ο υπάλληλος ', name, 'έχει μισθό', Μ[pos]
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'Δεν υπάρχει αυτός ο εργαζόμενος'
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'Δώσε το επόμενο προς αναζήτηση όνομα'
    ΔΙΑΒΑΣΕ name
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ