ΠΡΟΓΡΑΜΜΑ Μ_Κ_Δ_ΕΥΚΛΕΙΔΗΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x, y, temp
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "ΔΩΣΤΕ ΤΟΝ ΠΡΩΤΟ ΑΡΙΘΜΟ : "
    ΔΙΑΒΑΣΕ x
  ΜΕΧΡΙΣ_ΟΤΟΥ x > 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "ΔΩΣΤΕ ΤΟΝ ΔΕΥΤΕΡΟ ΑΡΙΘΜΟ : "
    ΔΙΑΒΑΣΕ y
  ΜΕΧΡΙΣ_ΟΤΟΥ y > 0
  temp <- y
  ΟΣΟ temp <> 0 ΕΠΑΝΑΛΑΒΕ
    temp <- x mod y
    x <- y
    y <- temp
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Μ.Κ.Δ = ", x
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μ_Κ_Δ_ΕΥΚΛΕΙΔΗΣ