пожалуйста, помогите решить задачу в турбо паскаль. при х-действит. (х-2)(х-4)(х-8)...(х-64)/(х-1)(х-3)(х-5)...(х-63)

var
h,x1,x2:integer;

h:=2;
x2:=0;
x1:=0;
while h<=64 do begin

x1:=x1*(x1-h);
x2:=x2*(x2-(h-1));

h:=h+2;
end;

print x1 / x2;