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

uses crt;
var x,i,y:integer;
 
Begin
writeln('ЙННННННЛНННННН»');
writeln('є  x   є   y  є');
writeln('МННННННОНННННН№');
x:=-8;
for i:=1 to 19 do begin
    case x of
    -8,-7,-6: y:=-3;
    -4,-3: y:=round(x+3);
    -2..3: y:=round(2.5);   {2.5 **надо заменить на ф-ю параболы}
     4..8: y:=round((3*x-9)/5);
     9: y:=3;
     end;
writeln('є  ',x:2,'  є   ',y:2,' є ');
inc(x);
end;
writeln(' ННННННКННННННј');
readln;
end.