Построить множество всех точек которых удовлетворяют неравенство xy=(1-x^2/5-y^2/5)<0) - Pascal(Паскаль)

uses graph;
var x,y:longint;
    g,d,x0,y0,r:integer;
begin
d:=0;
initgraph(d,g,'');
r:=100;
x0:=getmaxX div 2;
y0:=getmaxY div 2;
for x:=-r to r do
for y:=-r to r do
if (x*y<0)and(x*x+y*y<=r*r) then
putpixel(x0+x,y0-y,12);
readln
end.