ПРограмма с факториалом (функция факториал)

[factor1]

Вычислить S=N!*K!*(N-K)!
вычисление выполнить используя функцию для опредеения фактоиала.

плохо понимаю понятие функция факториала

[Sparky]

А понятие рекурсия Вам знакомо?

function fact(n:integer):integer
begin
if (n=1) then fact=1
else fact:=fact(n-1)*n;
end;

[Leo08]

2Sparky
Вы наверное C++ раньше изучали, т.к. сделали несколько ошибочек в стиле Паскаль - не Си!

function fact(n:integer):integer;
begin
if n=1 then fact:=1
else fact:=fact(n-1)*n;
end;

Но даже в этом случае не стоит использовать тип integer, так как fact(17) уже выходит за пределы данного класса. Используйте тип longint.