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

[Barbudo]

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

Пожалуйста подсабите, срочно подобрать условие +
и код проверить на ошибки)

Код

program rg;
uses graph;
var a,b:real; c:integer;
begin
a:=-2.8;
c:=1;
repeat
b:=-0.5;
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.25;
until b>2.5;
a:=a+0.4;
until a>5.2;
readln;
end.

Сообщение отредактировано: Barbudo - 23.05.2007 4:31