Pascal. Область истинности.

[klepsburger]

Задано N точек на плоскости. Записать логическое выражение, соответствующее заданной области истинности. Составить программу для:
• подсчета количества точек, попавших в заданную область.
• формирования массива из координат точек, попавших в заданную область.

Впринципе, практически всё сделал, только не понимаю: как указать то, что область - это не полное кольцо, а только то, что по правую сторону от прямой, рассположенной под углом 45 градусов к оси ОХ???...

uses crt;
var k,n,i:integer;
x,y:real;
begin
  clrscr;
  write('Vvedite kolli4estvo to4ek:=');
  readln(n);
  k:=0;
  for i:=1 to n do
    begin
      write('Vvedite x[i]:=');
      readln(x);
      write('Vvedite y[i]:=');
      readln(y);
        if (x*x+y*y<=3) and (x*x+y*y>=2) and {тут условие угла которое я не знаю как указать} then
          k:=k+1;
    end;
  writeln('Kolli4estvo to4ek popavshih v oblast:=',k:2);
  readln;
end.

Ещё не доконца понял, как вывести все точки, попавшие в виде массива, но думаю разберусь... Просто пока на области истинности зациклился

[WhiteSpirit]

(ArcTan(y / x) <= Pi * 0.75) and (ArcTan(y / x) >= -Pi / 4)

[klepsburger]

uses crt;
var k,n,i:integer;
x,y:real;
begin
  clrscr;
  write('Vvedite kolli4estvo to4ek:=');
  readln(n);
  k:=0;
  for i:=1 to n do
    begin
      write('Vvedite x[i]:=');
      readln(x);
      write('Vvedite y[i]:=');
      readln(y);
        if (x*x+y*y<=3) and (x*x+y*y>=2) and (ArcTan(y/x)<=Pi*0.75) and (ArcTan(y/x)>=-Pi/4) then
          k:=k+1;
    end;
  writeln('Kolli4estvo to4ek popavshih v oblast:=',k:2);
  readln;
end.

и всё равно если проверить считает не правильно: я задавал 2 точки с координатами A(2,5;0) B(1;1). очевидно что В не должна попадать в область, и колличество точек в ответе должно быть равным 1, но выдаёт 2... А если ввести х и у = 0 то вообще происходит деление на 0 и вылетает...

[WhiteSpirit]

Так надо брать квадратные корни от суммы квадратов x и y
А чтобы избавиться от деления на нуль, вместо y / x можно написать y / (x - 0.00001 * Sign(x))

[klepsburger]

спасибо большое)

[klepsburger]

спасибо большое