Программирование циклических алгоритмов. Табулирование функций

var 
    x,i,k:integer;
    F,h,a:real;
begin 
    writeln ('введите x от -3 до 2: х= ');
    readln(x);
        if x>0 then 
        begin 
            h:=1;
            while k<=5 do 
                h:=h/4;
                a:=a*exp(k*ln(x))*h;
                F:=F+a;
        end
            else 
            begin
                 if x<=0 then 
                 F:=exp(3.5*x*ln(pi));
            end;
    writeln(F);
end.

const a=-3;
      b=2;
      h=0.25;
function f(x:real):real;
var s,x1:real;
    k:integer;
begin
if x<=0 then f:=exp(ln(pi)*3.5*x)
else
 begin
  s:=0;
  x1:=1;
  for k:=1 to 5 do
   begin
    x1:=x1*x;
    s:=s+x1;
   end;
  f:=s;
 end;
end;
var x:real;
begin
x:=a;
while x<=b do
 begin
  writeln('x=',x:5:2,' f(x)=',f(x):8:4);
  x:=x+h;
 end;
end.

const a=-3;
      b=2;
      h=0.25;
var n,i,k:integer;
    x,x1,s,f:real;
begin
n:=round((b-a)/h)+1;
x:=a;
for i:=1 to n do
 begin
  if x<=0 then f:=exp(ln(pi)*3.5*x)
  else
   begin
    x1:=1;
    f:=0;
    for k:=1 to 5 do
     begin
      x1:=x1*x;
      f:=f+x1;
     end;
   end;
  writeln('x=',x:5:2,' f(x)=',f:10:6);
  x:=x+h;
 end;
end.