ΠΡΟΓΡΑΜΜΑ ΚΤΕΟ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΕΤΟΣ, ΠΦ, ΜΙΝ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΣΠΡΟΣΤΙΜΟ, ΠΟΣΟ
  ΧΑΡΑΚΤΗΡΕΣ: ΚΑΤΗΓΟΡΙΑ, ΤΥΠΟΣ, ΚΑΤ_ΜΙΝ
ΑΡΧΗ
  ΣΠΡΟΣΤΙΜΟ <- 0
  ΠΦ <- 0
  ΜΙΝ <- 2022
  ΚΑΤ_ΜΙΝ <- ' '
  ΓΡΑΨΕ 'ΔΩΣΤΕ ΚΑΤΗΓΟΡΙΑ ΟΧΗΜΑΤΟΣ'
  ΔΙΑΒΑΣΕ ΚΑΤΗΓΟΡΙΑ
  ΟΣΟ ΚΑΤΗΓΟΡΙΑ <> 'Τ' ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'ΔΩΣΤΕ ΕΤΟΣ ΚΥΚΛΟΦΟΡΙΑΣ ΚΑΙ ΤΥΠΟ ΠΡΟΣΕΛΕΥΣΗΣ'
    ΔΙΑΒΑΣΕ ΕΤΟΣ, ΤΥΠΟΣ
    ΑΝ ΚΑΤΗΓΟΡΙΑ = 'ΦΟΡΤΗΓΟ' ΤΟΤΕ
      ΠΟΣΟ <- 60
      ΠΦ <- ΠΦ + 1
    ΑΛΛΙΩΣ_ΑΝ ΚΑΤΗΓΟΡΙΑ = 'ΕΠΙΒΑΤΗΓΟ' ΤΟΤΕ
      ΠΟΣΟ <- 40
    ΑΛΛΙΩΣ
      ΠΟΣΟ <- 20
    ΤΕΛΟΣ_ΑΝ
    ΑΝ ΤΥΠΟΣ = 'ΕΚΠΡΟΘΕΣΜΟ' ΤΟΤΕ
      ΠΟΣΟ <- ΠΟΣΟ + 15.80
      ΣΠΡΟΣΤΙΜΟ <- ΣΠΡΟΣΤΙΜΟ + 15.80
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ ΠΟΣΟ
    ΑΝ ΕΤΟΣ < ΜΙΝ ΤΟΤΕ
      ΜΙΝ <- ΕΤΟΣ
      ΚΑΤ_ΜΙΝ <- ΚΑΤΗΓΟΡΙΑ
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'ΔΩΣΤΕ ΚΑΤΗΓΟΡΙΑ'
    ΔΙΑΒΑΣΕ ΚΑΤΗΓΟΡΙΑ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΠΛΗΘΟΣ ΦΟΡΤΗΓΩΝ: ', ΠΦ
  ΑΝ ΜΙΝ <> 2022 ΤΟΤΕ
    ΓΡΑΨΕ 'ΚΑΤΗΓΟΡΙΑ ΠΑΛΙΟΤΕΡΟΥ ΟΧΗΜΑΤΟΣ: ', ΚΑΤ_ΜΙΝ
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'ΚΑΝΕΝΑ ΟΧΗΜΑ'
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ 'ΤΟ ΣΥΝΟΛΙΚΟ ΠΡΟΣΤΙΜΟ ΕΙΝΑΙ: ', ΣΠΡΟΣΤΙΜΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ