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

Помогите пожалуйста ; Написал код начальный для рисунка.

program zadanie1;

var y,x,r:real;

begin

writeln(‘x=’);

readln(x);

if (x < -10) or (x > 8)

then writeln(‘y не верен’)

else

begin

if (x >= -10) and (x <= -6) then begin writeln(‘r=’);

readln(r);

y:=-2+sqrt(r*r-sqr(x+8)) ;

end ;

if (x>=-6) and (x<=2) then

y:=0.5*x+1;

if (x>=2) and (x<=6) then y:=0

else if (x>=6) and (x<=8) then

y:=sqr(x-6);

writeln(‘y=’,y);

end ;

end.

теперь осталось в таблицу её выразить ( показано ниже)

Само задание
3464536

Вычислить и вывести на экран в виде таблицы значения функции, заданной графически (согласно варианту), на интервале от xнач до xкон с шагом dx . Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.

45

А в чем именно проблема? Таблица это ж просто вывести х и у сначала, и потом выводить их значения на каждой итерации.
Ну и если с рамкой, то еще символы типа _ и | выводить.
Отступы можно как-то так добавлять: Форматный вывод - Учебный ресурс