Написать программу, которая выводит таблицу значений функции у = х

PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)

var x:real;
begin
 x:=-4.5;
 writeln('x    y');
 for var i:=1 to 17 do
 begin
  x:=x+0.5;
  writeln(x,'    ',abs(x-2)+абс(x+1));
 end;
readln;
end.

Пример:
x  _  y
-4  _  9
-3.5  _  8
-3  _  7
-2.5  _  6
-2  _  5
-1.5  _  4
-1  _  3
-0.5  _  3
0  _  3
0.5  _  3
1  _  3
1.5  _  3
2  _  3
2.5  _  4
3  _  5
3.5  _  6
4  _  7