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

begin
  var (x1, x2, h) := ReadInteger3;
  var head := $'|  X  | ' +  $'     y = Sin(x)      |';
  
  Writeln($'-' * head.Length);
  Writeln(head);
  Writeln($'-' * head.Length);
  
  While x1 <= x2 do
    begin
      
      Writeln($'| {x1, 2}  | {Sin(x1), 20} |');
      x1 += h;
    end;
    Writeln($'-' * head.Length);
  
end.

const
  hor = '+--------------------------+--------------------------+';
var
  x, x1, x2, h, y: real;
begin
  write('x1 = ');
  readln(x1);
  write('x2 = ');
  readln(x2);
  if x1 > x2 then
    begin
      x := x1;
      x1 := x2;
      x2 := x
    end;
  write('h = ');
  readln(h);
  writeln(hor);
  writeln('|            x             |             y            |');
  writeln(hor);
  x := x1;
  while x < x2 + h / 2 do
    begin
      write('| ', x, ' | ');
      if (x <> 2) and (x <> 13.5) then
        begin
          if x <= 10 then y := 1 / 2 / (x - 2)
          else y := sqr(cos(1 / 2 / (13.5 - x)));
          write(y)
        end
      else write('undefined':24);
      writeln(' |');
      x := x + h
    end;
  writeln(hor);
  readln
end.