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

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