ΠΡΟΓΡΑΜΜΑ Ε_Κ_Π_β
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α, Β, εκπ
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "ΔΩΣΤΕ ΤΟΝ ΠΡΩΤΟ ΑΡΙΘΜΟ : "
    ΔΙΑΒΑΣΕ Α
  ΜΕΧΡΙΣ_ΟΤΟΥ Α > 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "ΔΩΣΤΕ ΤΟΝ ΔΕΥΤΕΡΟ ΑΡΙΘΜΟ : "
    ΔΙΑΒΑΣΕ Β
  ΜΕΧΡΙΣ_ΟΤΟΥ Β > 0
  ΑΝ Α > Β ΤΟΤΕ
    εκπ <- Α
  ΑΛΛΙΩΣ
    εκπ <- Β
  ΤΕΛΟΣ_ΑΝ
  ΑΝ (εκπ mod Α) <> 0 Η (εκπ mod Β) <> 0 ΤΟΤΕ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      εκπ <- εκπ + 1
    ΜΕΧΡΙΣ_ΟΤΟΥ (εκπ mod Α) = 0 ΚΑΙ (εκπ mod Β) = 0
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ "Ε.Κ.Π = ", εκπ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Ε_Κ_Π_β