ΠΡΟΓΡΑΜΜΑ ΑΣΚ2
ΣΤΑΘΕΡΕΣ
  ΕΙΣ_ΑΝΩ_25 = 10
  ΕΙΣ_ΚΑΤΩ_25 = 7
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΗΛ, ΑΡ_ΕΙΣ, ΑΡ_ΦΟΙΤ, ΑΡ_ΠΟΛ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΚΟΣΤΟΣ_ΕΙΣ, ΚΕΡΔΟΣ_Μ
  ΧΑΡΑΚΤΗΡΕΣ: ΙΔ
ΑΡΧΗ
  ΑΡ_ΕΙΣ <- 0
  ΑΡ_ΦΟΙΤ <- 0
  ΑΡ_ΠΟΛ <- 0
  ΚΕΡΔΟΣ_Μ <- 0
  ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΗΛΙΚΙΑ ΤΟΥ ΠΡΩΤΟΥ ΑΤΟΜΟΥ: '
  ΔΙΑΒΑΣΕ ΗΛ
  ΟΣΟ ΗΛ > 0 ΚΑΙ ΑΡ_ΕΙΣ <= 5 ΕΠΑΝΑΛΑΒΕ
    ΑΡ_ΕΙΣ <- ΑΡ_ΕΙΣ + 1
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΙΔΙΟΤΗΤΑ ΤΟΥ ΑΤΟΜΟΥ("Φ","Π","Τ"): '
      ΔΙΑΒΑΣΕ ΙΔ
      ΑΝ ΙΔ <> 'Φ' ΚΑΙ ΙΔ <> 'Π' ΚΑΙ ΙΔ <> 'Τ' ΤΟΤΕ
        ΓΡΑΨΕ 'ΛΑΘΟΣ ΣΤΟΙΧΕΙΑ ΞΑΝΑΔΟΚΙΜΑΣΕ: '
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ ΙΔ = 'Φ' Η ΙΔ = 'Π' Η ΙΔ = 'Τ'
                                                 !ΥΠΟΛΟΓΙΣΜΟΣ ΚΟΣΤΟΥΣ ΕΙΣΙΤΗΡΙΟΥ
    ΑΝ ΗΛ >= 25 ΤΟΤΕ
      ΚΟΣΤΟΣ_ΕΙΣ <- ΕΙΣ_ΑΝΩ_25
    ΑΛΛΙΩΣ
      ΚΟΣΤΟΣ_ΕΙΣ <- ΕΙΣ_ΚΑΤΩ_25
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'ΤΟ ΚΟΣΤΟΣ ΤΟΥ ΕΙΣΙΤΗΡΙΟΥ ΓΙΑ ΑΥΤΟ ΤΟ ΑΤΟΜΟ ΕΙΝΑΙ:', ΚΟΣΤΟΣ_ΕΙΣ
                             !ΥΠΟΛΟΓΙΣΜΟΣ ΥΠΟΛΟΓΙΣΜΟΣ ΣΥΝΟΛΙΚΟΥ ΚΕΡΔΟΥΣ ΜΟΥΣΕΙΟΥ
    ΚΕΡΔΟΣ_Μ <- ΚΕΡΔΟΣ_Μ + ΚΟΣΤΟΣ_ΕΙΣ
    ΑΝ ΙΔ = 'Φ' ΤΟΤΕ
      ΑΡ_ΦΟΙΤ <- ΑΡ_ΦΟΙΤ + 1
    ΑΛΛΙΩΣ_ΑΝ ΙΔ = 'Π' ΤΟΤΕ
      ΑΡ_ΠΟΛ <- ΑΡ_ΠΟΛ + 1
    ΤΕΛΟΣ_ΑΝ
                                                      !ΠΗΓΑΙΝΕ ΣΤΟ ΕΠΟΜΕΝΟ ΑΤΟΜΟ
    ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΗΛΙΚΙΑ ΤΟΥ ΕΠΟΜΕΝΟΥ ΑΤΟΜΟΥ: '
    ΔΙΑΒΑΣΕ ΗΛ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΤΟ ΣΥΝΟΛΙΚΟ ΚΕΡΔΟΣ ΤΟΥ ΜΟΥΣΕΙΟΥ ΕΙΝΑΙ:', ΚΕΡΔΟΣ_Μ
  ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ΤΩΝ ΦΟΙΤΗΤΩΝ ΠΟΥ ΕΠΙΣΚΕΦΘΗΚΑΝ ΤΟ ΜΟΥΣΕΙΟ ΕΙΝΑΙ:', ΑΡ_ΦΟΙΤ
  ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ΤΩΝ ΠΟΛΥΤΕΚΝΩΝ ΠΟΥ ΕΠΙΣΚΕΦΘΗΚΑΝ ΤΟ ΜΟΥΣΕΙΟ ΕΙΝΑΙ:', ΑΡ_ΠΟΛ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ