ΠΡΟΓΡΑΜΜΑ   ΣΥΣΤΗΜΑ_ΔΙΑΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ:   υπόλοιπο,ποσό,ζ

ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε υπόλοιπο και ποσό ανάληψης'
  ΔΙΑΒΑΣΕ υπόλοιπο,ποσό
  ζ <-- (ποσό*1)/100                                      
  ΑΝ υπόλοιπο>ποσό τότε
    ΑΝ ζ>=1 και ζ<=3 τότε
      υπόλοιπο <-- υπόλοιπο-(ποσό+ζ)
    ΑΛΛΙΩΣ_ΑΝ ζ<1 τότε
      υπόλοιπο <-- υπόλοιπο-(ποσό+1)
      ζ <-- 1
    ΑΛΛΙΩΣ_ΑΝ ζ>3 τότε
      υπόλοιπο <-- υπόλοιπο-(ποσό+3)
      ζ <-- 3
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'Το νέο υπόλοιπο είναι',υπόλοιπο,'euro και η χρέωση απο το ΔΙΑΣ είναι',ζ,'euro'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'αποτυχία'
  ΤΕΛΟΣ_ΑΝ



ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΣΤΗΜΑ_ΔΙΑΣ