**[**Back to MATH SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**

*{
> Does anyone have an idea to perForm permutations With pascal 7.0 ?
> As an example finding the number of 5 card hands from a total of 52 car
> Any help would be greatly appreciated.
}
***Function **Permutation(things, atatime : Word) : LongInt;
**Var
**i : Word;
temp : LongInt;
**begin
**temp := 1;
**For **i := 1 **to **atatime **do
begin
**temp := temp * things;
dec(things);
**end**;
Permutation := temp;
**end**;
**begin
**Writeln('7p7 = ',Permutation(7,7));
**end**.

**[**Back to MATH SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**