Написать программу которая выводит таблицу значений функции y=|x-2|+|x+1|в диапазоне от -4 до 4 с шагом 0,5 — Pascal(Паскаль)

uses crt;

var
  x, h, y: real;

begin
  clrscr;
  h := 0.5;
  x := -4;
  while x <= 4 do
  begin
    y := abs(x - 2) + abs(x + 1);
    writeln('x=', x:4:1, '  y=', y:4:1);
    x := x + h;
  end;
  readln

end.