Определить принадлежит ли точка

[eoln]

Возможно, из-за округлений или представления вещественных чисел
Эта поправка уберёт округление при извлечении корня

ra:=(x*x+y*y);
if (ra>=1*1)and(ra<=2*2) and (y>=0) then ...

А чтоб уж совсем хорошо жилось, можно ввести Var x,y:integer;, правда, вводить получится только точки с целыми координатами, а их всего 8 штук ))

[Pavia]

На границе числа лучше не брать. Это особенность компьютера в том что он считает приближённо.