Вывести координаты!, Вывести координаты Опции

[Polosat]

Напечатать координаты точек, попадающих в заштрихованную фигуру, если координата х изменяется от –3.2 до 3.4 с шагом х=0.4, а координата у меняется от –3.5 до 4.0 с шагом у=0.5.

Есть сама программа только никак не могу правильно подобрать условие.

 program rg;
uses graph;
var a,b:real; c:integer;
begin
a:=-3.2;
c:=1;
repeat
b:=3.4;
repeat
if {Условие вывода координат} then
begin
writeln ('(',a:4:2, ';' ,b:4:2, ')');
C:=c+1;
if ( c mod 24)=0 then begin
writeln('Enter');
readln;
end;
end;
b:=b+0.5;
until b>4;
a:=a+0.4;
until a>3.4;
readln;
end.
end.