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

uses crt;
var x,s1,s2,t,z:real;
    n:byte;
begin
clrscr;
x:=2;
while x<=3.5 do
 begin
  s1:=0;
  t:=1;
  for n:=1 to 8 do
   begin
    t:=t*x;
    s1:=s1+t/(2*n);
   end;
  s2:=0;
  t:=1;
  for n:=1 to 6 do
   begin
    t:=t*x*x;
    s2:=s2+t/(4*n);
   end;
  z:=x*s1/2+(x*x+1)*s2/3;
  writeln('x=',x:4:1,' z=',z:9:2);
  x:=x+0.5;
 end;
readln
end.

uses crt;
Procedure Tab(a,b,h:real);
var x,s1,s2,t,z:real;
    n:byte;
begin
x:=a;
while x<=b do
 begin
  s1:=0;
  t:=1;
  for n:=1 to 8 do
   begin
    t:=t*x;
    s1:=s1+t/(2*n);
   end;
  s2:=0;
  t:=1;
  for n:=1 to 6 do
   begin
    t:=t*x*x;
    s2:=s2+t/(4*n);
   end;
  z:=x*s1/2+(x*x+1)*s2/3;
  writeln('x=',x:4:1,' z=',z:9:2);
  x:=x+h;
 end;
end;
begin
clrscr;
Tab(2,3.5,0.5);
readln
end.