Решите это Паскаль АBC

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