Convert a program from Wolfram Mathematica to C. The code and the algorithm are below. The program code is for root finding using Newton Horner's method. Please write a full working program (not just a function).

NW-Horner.n In[i]s NewtonHorner [x0 , zmax ] : Module {j = 0, k, n= Length [a]-1, r0 = N(x0]), c=b=Table [ 0, {i,n+1)); Print( "ro ", PaddedForm[r0, {16, 16)], ", P[Ko] NumberForm[P[r0], 16] 1: Printl" r",,"PaddedForm[rl, t16, 163],",PI,"3 "] = ", NumberForn [P[r1] , 16] ]; Print[",NumberFormr1, 161 Print [ " P [r] ", NurnberForrn [ P [r1], 16] ]; 100%