Построить на экране множество точек, координаты которых задовольняют такое неравенство или систему неравностей: |y| + 3|x| <= x*х+ 1 - Pascal(Паскаль)

uses crt,graph;
const n=15000;{количество точек в массив}
type TPoint=record{тип запись-точка}
            x,y:integer;{поля-координаты}
            end;
var a:array[1..n] of TPoint;{массив точек}
    gd,gm,i,x0,y0,x:integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
    a[i].x:=random(640)-320;{координата х по ширине экрана}
    a[i].y:=random(480)-240;{координата у по высоте экрана}
  end;
Initgraph(gd,gm,'');{переход в графический режим}
x0:=getmaxX div 2; y0:=getmaxY div 2;{середина экрана}
line(0,y0,640,y0);line(x0,0,x0,480);{оси, можно сделать стрелки, подписи, деления}
for i:=1 to n do
  begin
    x:=round(a[i].x/5);{для вывода на экран уменьшаем значение х,
 т.к. реальный график сильно вытянут по оси у, попробуйте разные коэффициенты,
 нарисуйте график(точнее 4 графика)в Экселе}
    if (abs(a[i].y))<=sqr(x)+1-3*abs(x) then{формула}
    PutPixel(x0+a[i].x,y0-a[i].y,random(15)+1);{вывод тех точек, которые 
соответствуют условию, по х прибавляем, по у-вычитаем, т. координаты 
в отличие от нормальных растут сверху вниз}
  end;
readln;
closegraph
end.