ΠΡΟΓΡΑΜΜΑ  Ε_Κ_Π
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:σ,αρ1,αρ2
  ΧΑΡΑΚΤΗΡΕΣ:απ
ΑΡΧΗ
  σ <-- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δωσε δυο θετικους αριθμους'
    ΔΙΑΒΑΣΕ αρ1,αρ2
  ΜΕΧΡΙΣ_ΟΤΟΥ αρ1>0 και αρ2>0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ αρ1>αρ2 τότε
      σ <-- σ+αρ2                  
    ΑΛΛΙΩΣ_ΑΝ αρ1<αρ2 τότε
      σ <-- σ+αρ1
    ΑΛΛΙΩΣ
      σ <-- αρ1
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ σ MOD αρ1=0 και σ MOD αρ2=0
  ΓΡΑΨΕ 'ΕΚΠ=',σ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ