var
x, y, R: real;
begin
R := 1; // радиус окружности (в задаче равен 1)
Write('Введите через пробел координаты точки x, y: ');
Read(x, y);
if (Sqr(x) + Sqr(y) <= Sqr(R)) and (y <= 0) then</p>
Write('Точка принадлежит заштихованной области')
else Write('Точка не принадлежит заштихованной области');
end.