[lmikle]

82:

Код:

Result := 1;
For I := 1 To 64 Do
  If (I mod 2) = 0 Then Result := Result * (x-I) Else Result := Result / (x-I);

80: Сделаешь сам. Тебе нужен цикл с шагом 2 от 3 до 13. Т.е. While с ручным счетчиком. Факториал тоже не самый сложный метод расчета.