ΠΡΟΓΡΑΜΜΑ Παραγοντικό_επανάληψη
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν
ΑΡΧΗ
  ΓΡΑΨΕ "Δώσε έναν ακέραιο θετικό αριθμό : "
  ΔΙΑΒΑΣΕ Ν
  ΓΡΑΨΕ "Παραγοντικό = ", Παραγοντικό(Ν) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ Παραγοντικό(Χ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι, Π, Χ
ΑΡΧΗ
  Π <- 1
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Χ
    Π <- Π*Ι
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Παραγοντικό <- Π
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ