This sets up the basic equation(s) for the numerical ODE solver

Eq={Prey'[t]==RPrey Prey[t](1-(Prey[t]/KPrey)^ThetaPrey+AlphaPrey Pred[t]/KPred),Pred'[t]==RPred Pred[t](1-(Pred[t]/KPred)^ThetaPred+AlphaPred Prey[t]/KPrey)}

This gives values to all the necessary constants

KPrey=1000;KPred=100;RPrey=0.3;RPred=0.1;AlphaPred=0.8;AlphaPrey=-0.6;ThetaPrey=1.0;ThetaPred=0.5;InitPrey=5;InitPred=1;

This provides a numerical solution that can be graphed, etc.

solution=NDSolve[Join[Eq,{Pred[0]==InitPred,Prey[0]==InitPrey}],{Pred,Prey},{t,0,100}][[1]]

Plot[{Pred[t]/.solution,Prey[t]/.solution},{t,0,100},PlotStyle->{RGBColor[0,0,0],RGBColor[1,0,0]}]

This command will export the preceding graph into a JPEG file that can be read by Word/Excel/etc.

Export["graph.jpg",%]

Table[{i,Pred[i]/.solution,Prey[i]/.solution},{i,0,100}]

This will export the previous table into a CSV (comma-separated value) file that can be read by Excel

Export["PredPrey.csv",%]