Program Pr1;uses crt;var x:real;beginclrscr;x:=-4;while x<=4 do begin writeln(ABS(x+2)); x:=x+0.5; end;end.