Помогите с программой

const eps = 2e-2; h = 5e-2; a = 4; b = 5;function f(x:real):real;var s : real;begin s := sqrt(x); f := (x+1-s)*exp(s) - (x+1+s)*exp(-s)end;function g(x:real):real;var r,d: real; s,t: real; k: integer;begin r := f(x); t := sqrt(x) * 8; s := 0; k := 0; repeat   k := k + 1;   t := t * x / (2*k) / (2*k + 1);   s := s + t * sqr(k);   d := abs(r - s); until d <= eps; g := send;var x,m,n,d:real;begin writeln('    x    g(x)    f(x)    d'); x := a; while x <= b do   begin   m := f(x);   n := g(x);   d := abs(m - n);   writeln(x:5:2, n:8:2, m:8:2, d:8:2);   x := x + h   end;end.