ΠΡΟΓΡΑΜΜΑ Συνδυασμοί
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: n, k, a, b, c, nk
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ n
  ΜΕΧΡΙΣ_ΟΤΟΥ n > 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ k
  ΜΕΧΡΙΣ_ΟΤΟΥ k <= n
  a <- Παραγοντικό(n) 
  b <- Παραγοντικό(k) 
  c <- Παραγοντικό(n - k) 
  nk <- a div (b*c) 
  ΓΡΑΨΕ nk
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

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