ΠΡΟΓΡΑΜΜΑ Γινόμενο_Πρώτων_Παραγόντων
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α, Β
ΑΡΧΗ
  ΔΙΑΒΑΣΕ Α, Β
  ΚΑΛΕΣΕ ΜΚΔ(Α, Β) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΜΚΔ(Α, Β) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α, Β, παράγοντας, υπόλοιπο, Γινόμενο
ΑΡΧΗ
  Γινόμενο <- 1
  παράγοντας <- 1
  ΟΣΟ Α <> 1 Η Β <> 1 ΕΠΑΝΑΛΑΒΕ
    παράγοντας <- παράγοντας + 1
    ΟΣΟ Α mod παράγοντας = 0 Η Β mod παράγοντας = 0 ΕΠΑΝΑΛΑΒΕ
      ΑΝ Α mod παράγοντας = 0 ΚΑΙ Β mod παράγοντας = 0 ΤΟΤΕ
        Α <- Α div παράγοντας
        Β <- Β div παράγοντας
        Γινόμενο <- Γινόμενο* παράγοντας
      ΑΛΛΙΩΣ_ΑΝ Α mod παράγοντας = 0 ΤΟΤΕ
        Α <- Α div παράγοντας
      ΑΛΛΙΩΣ_ΑΝ Β mod παράγοντας = 0 ΤΟΤΕ
        Β <- Β div παράγοντας
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ Γινόμενο
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ