Написать программу табулирования сложной функции

uses crt;
var a,b,y,n,E: integer;
begin Clrscr;
x:=-1;
if x<0,5 then y:=((sqr(x)+3*x+4)/(5*x+1))*((4*n-3)*sqr(x))/(4*n+1)); 
else 
for n:=1 to 10 do
then y:=(x/3)*(exp(n*ln(x)/n);
if x>1 then 
writeln(y);
end.

uses crt;
function F(x,e:real):real;
var n:integer;
    t,s:real;
begin
if x<0.5 then
 begin
  s:=(x*x+3*x+4)/(5*x+1);
  t:=1;
  n:=0;
  while abs(t/(4*n+1))>e do
   begin
    n:=n+1;
    t:=t*x*x;
    s:=s+t/(4*n+1);
   end
 end
else
 begin
  s:=0;
  t:=1;
  for n:=1 to 10 do
   begin
    t:=t*x;
    s:=s+t/n;
   end
 end;
F:=s;
end;
var xn,xk,x,dx,e:real;
begin
clrscr;
write('xn=');
readln(xn);
repeat
write('xk>',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('dx<',xk-xn:0:1,' dx=');
readln(dx);
until dx<xk-xn;
repeat
write('Точность вычислений суммы при х<0.5 e>0 e=');
readln(e);
until e>0;
x:=xn;
while x<=xk+dx/2 do
 begin
  writeln('x=',x:0:2,'  y=',F(x,e):0:5);
  x:=x+dx;
 end;
readln
end.

xn:=-1;
xk:=1;
dx:=0.1;