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.
Program Pr1;
uses crt;
var x:real;
begin
clrscr;
x:=-4;
while x<=4 do begin
writeln(ABS(x+2));
x:=x+0.5;
end;
end.