{ coco.txt -- Algorithm #5: Combinatorial Coefficient by Tom Swan }

answer <- elements;
for i <- 1 to selections - 1 do
begin
  elements <- elements - 1;
  answer <- answer * elements;
end;
Write("Nonunique combinations = ", answer);
answer <- answer / Factorial(selections);
Writeln("Unique combinations = ", answer);


(*
// --------------------------------------------------------------
// Copyright (c) 1993 by Tom Swan. All rights reserved
// Revision 1.00    Date: 02/13/1993   Time: 02:54 pm
*)
