ΠΡΟΓΡΑΜΜΑ ΚΤΕΛ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΠΛ
  ΠΡΑΓΜΑΤΙΚΕΣ: Α, Π, ΑΘΡ
  ΧΑΡΑΚΤΗΡΕΣ: ΚΑΤ
ΑΡΧΗ
  ΑΘΡ <- 0
  ΠΛ <- 0
  ΓΡΑΨΕ 'ΔΩΣΕ ΚΑΤΗΓΟΡΙΑ ΚΑΙ ΑΞΙΑ ΕΙΣΙΤΗΡΙΟΥ'
  ΔΙΑΒΑΣΕ ΚΑΤ, Α
  ΟΣΟ ΚΑΤ <> 'Λ' ΚΑΙ ΠΛ < 50 ΕΠΑΝΑΛΑΒΕ
    ΑΝ ΚΑΤ = 'Π' Η ΚΑΤ = 'Α' ΤΟΤΕ
      Π <- (50/100)*Α
    ΑΛΛΙΩΣ_ΑΝ ΚΑΤ = 'Σ' Η ΚΑΤ = 'Φ' ΤΟΤΕ
      Π <- Α - (25/100)*Α
    ΑΛΛΙΩΣ
      Π <- Α
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ ' Η ΑΞΙΑ ΤΟΥ ΕΙΣΙΤΗΡΙΟΥ ΕΙΝΑΙ: ', Π
    ΑΘΡ <- ΑΘΡ + Π
    ΠΛ <- ΠΛ + 1
    ΓΡΑΨΕ 'ΔΩΣΕ ΚΑΤΗΓΟΡΙΑ ΚΑΙ ΑΞΙΑ ΕΙΣΙΤΗΡΙΟΥ'
    ΔΙΑΒΑΣΕ ΚΑΤ, Α
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ ΑΘΡ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ