В таких задачах необходимо математически сформулировать условия, которые строго ограничат выбранную область. Из рисунка видно, что x не может быть отрицательным (x >= 0), x <= 6, y <= 6. Также в первой четверти область ограничена окружностью, тут уже сложнее, если мне не изменяет память, то x*x+y*y<=6 (6 это радиус окружности). В четвертой четверти область задается уравнением прямой, и я совершенно не помню как они составляются (y = kx + b вроде?), поэтому ваша задача самостоятельно разобраться с этой прямой, условие будет вида y>=k*x+b. Когда условия будут сформулированы, останется лишь записать программу, примерный вид программы будет следующим:
var x,y : integer; begin readln(x,y); if (x >= 0) and (x <= 6) and (y <= 6) and (x*x+y*y <= 6) {and (еще одно условие)} writeln('true') else writeln('false'); readln; end.