Ответ: var x:real;begin  x := -4;  while x <= 4 do begin    writeln(‘x=’,x : 2 : 2,’ y=’, abs(x-2)+abs(x+1) : 2 : 2);    x := x + 0.5;  end;  readln; //задержка вводаend.