ΠΡΟΓΡΑΜΜΑ Ε3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: μ1, μ2, κβ
  ΠΡΑΓΜΑΤΙΚΕΣ: αξία, ΦΠΑ, πληρωτέο
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε προηγούμενη μέτρηση από το ρολόι της ΔΕΗ'
  ΔΙΑΒΑΣΕ μ1
  ΓΡΑΨΕ 'Δώσε τελευταία μέτρηση από το ρολόι της ΔΕΗ: '
  ΔΙΑΒΑΣΕ μ2
  κβ <- μ2 - μ1
  ΑΝ κβ >= 0 ΤΟΤΕ
    ΕΠΙΛΕΞΕ κβ
      ΠΕΡΙΠΤΩΣΗ <= 2000
        αξία <- κβ*1.52
      ΠΕΡΙΠΤΩΣΗ <= 3200
        αξία <- 2000*1.52 + (κβ - 2000)*2.03
      ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
        αξία <- 2000*1.52 + 1200*2.03 + (κβ - 3200)*4.65
    ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
    ΦΠΑ <- αξία*24/100
    πληρωτέο <- αξία + ΦΠΑ
    ΓΡΑΨΕ 'Κιλοβατώρες που καταναλώθηκαν:', κβ
    ΓΡΑΨΕ 'Αξία ρεύματος:', αξία
    ΓΡΑΨΕ 'ΦΠΑ=', ΦΠΑ
    ΓΡΑΨΕ 'Το πληρωτέο ποσό είναι: ', πληρωτέο
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Λάθος δεδομένα...'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Ε3