ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: αριθ_1, παρον_1, αριθ_2, παρον_2, αριθ_τελ, παρον_τελ, ΜΚΔ
ΑΡΧΗ
  ΓΡΑΨΕ '1ο κλάσμα :'
  ΓΡΑΨΕ "Αριθμητής : "
  ΔΙΑΒΑΣΕ αριθ_1
  ΓΡΑΨΕ "Παρονομαστής : "
  ΔΙΑΒΑΣΕ παρον_1
  ΓΡΑΨΕ '2ο κλάσμα :'
  ΓΡΑΨΕ "Αριθμητής : "
  ΔΙΑΒΑΣΕ αριθ_2
  ΓΡΑΨΕ "Παρονομαστής : "
  ΔΙΑΒΑΣΕ παρον_2
  αριθ_τελ <- αριθ_1* παρον_2 + αριθ_2* παρον_1
  παρον_τελ <- παρον_1* παρον_2
  ΜΚΔ <- Μ_Κ_Δ (αριθ_τελ, παρον_τελ) 
! απλοποίηση κλάσματος
  αριθ_τελ <- Α_Μ(αριθ_τελ/ΜΚΔ) 
  παρον_τελ <- Α_Μ(παρον_τελ/ΜΚΔ) 
  ΑΝ αριθ_τελ > παρον_τελ ΤΟΤΕ ! μεικτό κλάσμα
    ΓΡΑΨΕ "Το τελικό κλάσμα είναι : ", αριθ_τελ, "/", παρον_τελ, " (", αριθ_τελ div παρον_τελ, αριθ_τελ mod παρον_τελ, "/", παρον_τελ, ")"
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ "Το τελικό κλάσμα είναι : ", αριθ_τελ, "/", παρον_τελ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ Μ_Κ_Δ(x, y): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x, y, z
ΑΡΧΗ
  z <- y
  ΟΣΟ z <> 0 ΕΠΑΝΑΛΑΒΕ
    z <- x mod y
    x <- y
    y <- z
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Μ_Κ_Δ <- x
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ