Составить программу табулирования двух функций S и Y в заданном диапазоне изменения аргумента x. Здесь n — число слагаемых суммы S. — Pascal(Паскаль)

uses crt;
var
   n,i:Integer;
   y,s:Double;
   x:double;

function sum (var x:double):Double;
var i:Integer;
     s:Double;
     ch:Double;
begin
   s:=0;
   for i:=1 to 35 do begin
      ch:=Exp(Ln(x)*i)*cos(i*3.14/3)/i;
      s:=s+ch;
  end;
  result:=s;
end;

function f(var x:double):Double;
begin
    result:=-0.5*ln(1-2*x*cos(3.14/3)+sqr(x));
end;

begin
   Writeln('':4,'x','':5,'f','':5,'s','':5);
   for i:=1 to 8 do
     begin
        x:=i*0.1;
        y:=f(x);
        s:=sum(x);
        write (x:6:1,y:6:3,s:6:3);
        Writeln;
     end;
   Readln;
end.