ΠΡΟΓΡΑΜΜΑ Ασκ_4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ι, πλ, Ν
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[100], ΤΜ[100], τμήμα, ONOMA
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ, M[100], Σ, max
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε πλήθος υπαλλήλων εταιρίας'
    ΔΙΑΒΑΣΕ Ν
  ΜΕΧΡΙΣ_ΟΤΟΥ (Ν > 0) ΚΑΙ (Ν <= 100)
! ------------------------------------------------------
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώσε όνομα, τμήμα και μισθό υπαλλήλου', ι
    ΔΙΑΒΑΣΕ ΟΝ[ι], ΤΜ[ι], Μ[ι]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ------------------------------------------------------
  ΓΡΑΨΕ 'Δώσε το προς αναζήτηση τμήμα'
  ΔΙΑΒΑΣΕ τμήμα
  Σ <- 0
  πλ <- 0
  max <- -1
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΑΝ (ΤΜ[ι] = τμήμα) ΤΟΤΕ
      ΓΡΑΨΕ 'Ο υπάλληλος', ΟΝ[ι], 'έχει μισθό', Μ[ι]
      Σ <- Σ + Μ[ι]
      πλ <- πλ + 1
      ΑΝ Μ[ι] > max ΤΟΤΕ
        max <- Μ[ι]
        ONOMA <- ON[ι]
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ πλ <> 0 ΤΟΤΕ
     MO <- Σ / πλ
     ΓΡΑΨΕ 'Μέσος όρος μισθών', tmima, 'είναι', ΜΟ
     ΓΡΑΨΕ 'Υψηλόμισθος υπάλληλος', tmima, 'ο', ΟΝΟΜΑ
  ΑΛΛΙΩΣ
     ΓΡΑΨΕ 'Δεν βρέθηκε τέτοιο τμήμα'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ