ΠΡΟΓΡΑΜΜΑ  λιγότερα_ρέστα

ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: λεφτά[15],ρέστα,υπολ
  ΑΚΕΡΑΙΕΣ:μετρ,χ,ποσο
  ΛΟΓΙΚΕΣ: αλλα

ΑΡΧΗ

  λεφτά[1] <-- 500
  λεφτά[2] <-- 200
  λεφτά[3] <-- 100
  λεφτά[4] <-- 50
  λεφτά[5] <-- 20
  λεφτά[6] <-- 10
  λεφτά[7] <-- 5
  λεφτά[8] <-- 2
  λεφτά[9] <-- 1
  λεφτά[10] <-- 0.50
  λεφτά[11] <-- 0.20
  λεφτά[12] <-- 0.10
  λεφτά[13] <-- 0.05
  λεφτά[14] <-- 0.02
  λεφτά[15] <-- 0.01


  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε τα ρέστα που σου οφείλονται:'
    ΔΙΑΒΑΣΕ ρέστα
  ΜΕΧΡΙΣ_ΟΤΟΥ ρέστα>0

  υπολ <-- ρέστα
  μετρ <-- 1
  χ <-- 1
  αλλα <-- ΨΕΥΔΗΣ

  γράψε'Το ποσό της οφηλής είναι.'
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    αν λεφτά[μετρ]<=υπολ τοτε
      υπολ <-- υπολ-λεφτά[μετρ]
      αλλα <-- ΨΕΥΔΗΣ
         !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      αν αλλα=ΨΕΥΔΗΣ και χ>=1  τότε
        ποσο <-- χ
        αν υπολ-λεφτά[μετρ]<0  τοτε
          γράψε_ 'χ',ποσο, λεφτά[μετρ],''
          χ <-- 0
        ΤΕΛΟΣ_ΑΝ
      τέλος_αν
       !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      χ <-- χ+1
    ΑΛΛΙΩΣ
      αλλα <-- ΑΛΗΘΗΣ
      μετρ <-- μετρ+1

    ΤΕΛΟΣ_ΑΝ

  ΜΕΧΡΙΣ_ΟΤΟΥ υπολ=0
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ