Протабулировать функцию

function fun(x,a:real):real;
begin
  var s:=0.0;
  for var n:=0 to 6 do s+=Power(x+a,n/2);
  Result:=(a+x/3)*s;
end;
begin
  writeln('x = 1.1; a = 0.2; F = ',fun(1.1,0.2):0:4);
  writeln('x = 0.5; a = 0.2; F = ',fun(0.5,0.2):0:4);
  write('x = 2.6; a = 0.8; F = ',fun(2.6,0.8):0:4);
end.

procedure fun(x,a:real);
begin
  var s:=0.0;
  for var n:=0 to 6 do s+=Power(x+a,n/2);
  var f:=(a+x/3)*s;
  writeln(f:0:4);
end;
begin
  write('x = 1.1; a = 0.2; F = '); fun(1.1,0.2);
  write('x = 0.5; a = 0.2; F = '); fun(0.5,0.2);
  write('x = 2.6; a = 0.8; F = '); fun(2.6,0.8);
end.

s:=s+Power(x+a,n/2);

s:=s+exp(ln(x+a)*(n/2));

var x, hx, a, ha: real;
begin
  x := 1.1;
  hx := 0.5;
  ha := 0.2;
  while x < 2.6 + hx / 2 do
    begin
      a := 0.2;
      while a < 0.8 + ha / 2 do
        begin
          writeln('x = ', x:0:1, 'a = ', a:0:1, 'F = ', fun(x, y);
          a := a + ha
        end;
      x := x + hx
    end
end.

begin
foreach var x in Range(1.1,2.6,3) do
  foreach var a in Range(0.2,0.8,3) do begin
    write('x = ',x,'; a = ',a,'; y = '); fun(x,a);
  end;
end.

begin
  ArrGen(4, 1.1, v -> v + 0.5).ForEach(procedure (px) -> ArrGen(4, 0.2, v -> v + 0.2).
    Tabulate(pa -> Range(0, 6).Select(n -> Power(px + pa, n / 2)).Sum * (px + pa) / 3).
    Select(t -> Format('x = {0} a = {1} F = {2:F5}', px, t[0], t[1])).Println(NewLine));
end.

function fun(x, a : Real) : Real;
var
  f, p : Real;
  n : Integer;
begin
  x := a + x;
  f := 1; p := 1; // n=0
  for n := 1 to 6 do
    if odd(n) then
      f := f + p * sqrt(x)
    else
      begin
        p := p * x;
        f := f + p;
      end;
  fun := f * x / 3;
end;
 
var
  x, a : Real;
begin
  Write(' ');
  a := 0.2;
  repeat
    Write(a:10:1);
    a := a + 0.2;
  until a > 0.8;
  WriteLn;
  
  x := 1.1;
  repeat
    Write(x:3:1);
    a := 0.2;
    repeat
      Write(fun(x,a):10:5);
      a := a + 0.2;
    until a > 0.8;
    WriteLn;
    x := x + 0.5;
  until x > 2.6;
end.

function t(a,x:real):real:=(a>=x ? 2*a*x : a/2/x);
function w(a,x:real):real:=sqr(x)*cos(a*x+t(a,x));
begin
  foreach var x in Range(0.5,1.9,3) do
  foreach var a in Range(0.2,2.2,4) do begin
    writeln('x = ',x:0:1,'; a = ',a:0:1,'; w = ',w(a,x):0:3);
  end;
end.