программа с графиком Опции

[Solymr]

есть задание, получилась такая программа.
program figura;
const dx=0.5;
dy=0.4;
var x,y: real;
obl1,obl2,obl3,obl4: boolean;
count: integer;
begin
x:=-3.5;
count:=0;
while x<2.5 do
begin
y:=-3.6;
while y<2.4 do
begin
obl1:=(x>=-3) and (x<=-1)and (y<-x-2) and (y>-3);
obl2:=(x>-1) and (x<=0) and (y>-3) and (y<x);
obl3:=(x>=0) and (x<=1) and (y<1) and (y>-sqrt(4-sqr(x)));
obl4:=(x<=2) and (x>1) and (y<x) and (y>-sqrt(4-sqr(x)));
if obl1 or obl2 or obl3 or obl4 then
begin
write('(',x:2:1,',',y:2:1,')',';');
inc(count);
if not odd(count) then
writeln;
end;

y:=y+dy;
end;
x:=x+dx;
end;
readln;
end.
но правильные точки не выводятся, что не так, кто подскажет?

[volvo]

правильные точки не выводятся

А вот так?

program figura;
const
  dx=0.5;
  dy=0.4;

var
  x,y: real;
  obl1,obl2,obl3,obl4, obl5: boolean;
  count: integer;

begin
  x := -3.5;
  count := 0;
  while x < 2.5 do begin
    y := -3.6;
    while y < 2.4 do begin

      obl1 := (x >= -3) and (x <= 0) and (y < (-x-2)) and (y >= -3);
      obl2 := (x >= -1) and (x <= 0) and (y >= -3) and (y <= x);
      obl3 := (x >= 0) and (x <= 1) and (y >= 0) and (y <= 1) and (y >= x);
      obl4 := (x >= 0) and (x <= 2) and (y >= 0) and (y <= x);
      obl5 := (x >= 0) and (x <= 2) and (y <= 0 ) and (y >= -2) and (sqr(x) + sqr(y) <= 4);
    
      if obl1 or obl2 or obl3 or obl4 or obl5 then begin
        write('(',x:2:1,',',y:2:1,')',';');
        inc(count);
        if not odd(count) then writeln;
      end;

      y:=y+dy;
    end;

    x:=x+dx;
  end;
  readln;
end.