очень срочно    Требовалось
написать программу, которая вводит с клавиатуры координаты точки на плоскости
(x, y – действительные числа) и определяет принадлежность точки заштрихованной
области, включая ее границы. Программист торопился и написал программу
неправильно. Вот она:

var x, y: real;

begin

readln(x, y);

if x >= 0 then

if y <= 1 then

if (x*x + y*y <= 1) and (y >= x-1) then

write('принадлежит')

else

write('не принадлежит');

end.



надо ёё зделать правильно