unit for44; interface procedure step (var x : integer; st : byte); procedure procnew (var sum: real; var x : integer; var n : byte; var zn : shortint; var p : real); function funnew (sum : real; var x : integer; var n : byte; var zn : shortint; var p : real) : real; implementation procedure step (var x:integer; st : byte); var i:byte; k:integer; begin k:=1; for i:=1 to st do k:=k*x; x:=k; end; procedure procnew (var sum : real; var x : integer; var n : byte; var zn : shortint; var p : real); begin p:=x; step (x,n); sum:=sum+(zn)*x/n; n:=n+2; zn:=-1*zn; end; function funnew (sum : real; var x : integer; var n : byte; var zn : shortint; var p : real) : real; begin p:=x; step (x,n); funnew:=sum+zn*x/n; n:=n+2; zn:=-1*zn; end; begin end.