Решите это Паскаль А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.