Вычислить и вывести на экран в виде таблицы значения функции, заданной графически

var x, dx, sx, ex: real;
    i: integer;
begin
  writeln('Enter margins:');
  write('x1 = '); readln(sx);
  write('x2 = '); readln(ex);
  repeat
    write('Step = '); readln(dx);
    if dx = 0 then writeln('Enter non-zero step!')
  until dx <> 0;
  if sx > ex
    then begin
      x := sx;
      sx := ex;
      ex := x
    end;
  if dx < 0 then dx := -dx;
  writeln('Tabulation of function:');
  writeln('    | -2 + sqrt(4 - sqr(x + 8)), if -10 <= x < -6');
  writeln('    | x / 2 + 1,                 if -6 <= x < 2');
  writeln('y = | 0,                         if 2 <= x <= 6');
  writeln('    | sqr(x - 6),                if 6 < x <= 8');
  writeln('    | undefined,                 if x other');
  writeln('+---------+---------+');
  writeln('|    x    |    y    |');
  writeln('+---------+---------+');
  for i := 0 to round(abs(ex - sx) / dx) do
    begin
      x := sx + dx * i;
      write('|', x:9:3, '|');
      if (-10 <= x) and (x < -6)
        then write(-2 + sqrt(4 - sqr(x + 8)):9:3)
        else if (-6 <= x) and (x < 2)
          then write(x / 2 + 1:9:3)
          else if (2 <= x) and (x <= 6)
            then write(0.0:9:3)
            else if (6 < x) and (x <= 8)
              then write(sqr(x - 6):9:3)
              else write('undefined');
      writeln('|')
    end;
  write('+---------+---------+');
  readln
end.