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

если единичные отрезки равны 1, то тогда if (x>-5)and(x<5)

Откуда вы взяли число 5?

Вводите разные точки в вашу программу, и она в половине случаем будет выдавать неправильный ответ

случаев*

ох, черт, я перепутала картинки и написала решение к 13.

varx, y: integer;beginread(x); read(y);if (x>-10)and(x<10)and(y<4)and(y>-4) thenwriteln('true'') else writeln('false');end.

На рисунке часть окружности с центром в точке (0; 0) и радиусом 6.Достаточно проверить, принадлежит ли точка этой окружности и ее положение относительно прямой x = 2.Сама программа:var  x, y: real;begin  read(x, y);  writeln((x >= 2) and (x * x + y * y <= 36))end.