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

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ