Составить программу, которая печатает true, если точка с координатами (x, y) принадлежит закрашенной области, и falseв противном случае.

А откуда у Вас двойки-то взялись?

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

Когда не указано, это означает, что не определено, т.е. "бесконечно"

нет, очень "конечно", смотри на заштрихованную область!

Не буду с Вами спорить, это модераторам решать и автору вопроса.

Program ch;var x,y: real;beginwrite('x='); readln(x);write('y='); readln(y);if ( ( y*y>=1-x*x) and (y>=0) and (y<=2)  and (x>=-2) and (x<=2))        then writeln('true')            else writeln('false');end.