حل تركيب به زبان پاسكال

[vahid_41852]

كي ميتونه مشكل اين برنامه رو بگه كه چرا جواب نميده. (تا حالا 3 تا پوست زدم هيچكي جوابمو نداده عجب آدماي بي معرفتي هستيد:18:)


Program Tarkib;
uses crt;
var
x,k,i:integer;
function tarkib(k,i:integer):longint;
function fact(k:integer):longint;
begin
writeln('Please Enter Number : ');
readln(x);
x:=trunc(fact(k)/(fact(i)*fact(K-I)));
writeln('Answer :',x);
readln;
end.