написать программу которая выводит на экран значений функции у=|х|. диапазон изменения аргумента-от4 до -4, шаг приращения -(-0.5)

если я правильно понял,то такuses crt;varx,y:real;beginx:=4;while x>(-4.5) do beginy:=abs(x);x:=x+(-0.5);write(y,' ');end;end.

вот так:const  LB=-4;  HB=4;  DX=0.5;var  x,y : real;  n,i :integer;begin   writeln('значения');   n:=round((HB-LB)/DX)+1;   x:=LB;  for i:= 1 to n do     begin        y:=abs(x);        writeln(x:6:2,y:6:2);        x:=x+DX;     end;end.