ΠΡΟΓΡΑΜΜΑ Ε1
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: τύπος
  ΠΡΑΓΜΑΤΙΚΕΣ: χρήματα, λιτρα, κ
  ΛΟΓΙΚΕΣ: σημαια
ΑΡΧΗ
  σημαια <- ΑΛΗΘΗΣ
  ΓΡΑΨΕ 'Δώσε Τύπο βενζίνης'
  ΓΡΑΨΕ ' Α=απλή Σ=Super αμόλυβδη Υ= Υγραέριο: '
  ΔΙΑΒΑΣΕ τύπος
  ΓΡΑΨΕ 'Δώσε χρήματα: '
  ΔΙΑΒΑΣΕ χρήματα
  ΕΠΙΛΕΞΕ τύπος
    ΠΕΡΙΠΤΩΣΗ 'Α', 'α'
      κ <- 1.395
    ΠΕΡΙΠΤΩΣΗ 'Σ', 'σ'
      κ <- 1.654
    ΠΕΡΙΠΤΩΣΗ 'Υ', 'υ'
      κ <- 0.698
    ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'δεν υπάρχει αυτός ο τύπος βενζίνης...'
      σημαια <- ΨΕΥΔΗΣ
  ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
  ΑΝ σημαια = ΑΛΗΘΗΣ ΤΟΤΕ
    λιτρα <- χρήματα/κ
    ΓΡΑΨΕ ' Τα λίτρα καυσίμου που έβαλες είναι: ', λιτρα
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Ε1