Хеееееееелп
Написать программу, которая определит принадлежит ли заштрихованной области (рисунок) точка с координатами X,Y

Вы просто поняли свою ошибку и теперь решили включить режим оправдания

"круга радиуса 5"?

О чём вы говорите?

В общем, я долб. Если вы имеете в виду, что границы заштрихованной области не принадлежат это области, то да, вы правы.

А если принадлежат, неравенства просто нужно сделать нестрогими.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var (x,y):=ReadReal2('Введите через пробел координты x и y точки:');  if (x>0) and (x*x+y*y<25) and (x*x+y*y>9) then Writeln('Принадлежит')  else Writeln('Не принадлежит')end.