легкая задача, в паскале, для тех кто шарит

[Scanty]

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

[Serge_Bliznykov]

var x : real;
begin
  x := -5;
  while x<=15 do begin
     WriteLn('x= ',x:0:0,' y= ', (abs(x-1)+0.5):0:1);
     x := x + 1
  end;
  Readln
end.