Пожалуйста посчитайте это Паскаль АBC

VAR 
 x, y,  xmin, xmax, dx : Real;
BEGIN 
Writeln('Табулирование функции.'); 
 xmin := -3;  xmax := 2;  dx := 0.5;  x := xmin; 
 WHILE x<=xmax DO
begin   
 y := abs(2-sqr(x))+1;   
Writeln(x:6:3, y:6:3);   
 x := x+dx; 
end {while}; 
Readln
END.