Где ошибка?

[Виталик124]

program praktika_2;

var
  x, y: real;
  ch: char;

begin
  repeat
    writeln('vvedite_tochki : ');
    writeln('X : ');
    readln(x);
    writeln('Y : ');
    readln(y);
    if ((x * x + y * y <= 4) and (x <= 0)) or ((y / 2 >= x - 1) and (y / -2 >= x - 1)) then
      writeln('tochka_popadaet')
    else 
      writeln('tochka_ne_vhodit');
    writeln('eshe  ? ');
    readln(ch);
  until upcase(ch) = 'N';
end.

Попадает ли точка в область?

[BDA]

(y / 2 >= x - 1) and (y / -2 >= x - 1) and (x >= 0)

UPD
Пожалуйста

[Виталик124]

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