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

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.