Вариант 5. Точка на плоскости задана своими координатами X и Y. Построить таблицу, содержащую координаты пяти точек, для каждой из которых необходимо определить, принадлежит ли точка заштрихованной области.    

должны выполняться следующие условия y>-x+1 y>x-1 (x-1)^2+y^2<1 var x,y:real; begin for i:=1 to 5 do begin x:=random*4-2; y:=random*4-2; if (y>-x+1) and (y>x-1) and (((x-1)*(x-1)+y*y)<1) then writeln('x=',x:8:2,' y=',y:8:2,' принадлежит') else writeln('x=',x:8:2,' y=',y:8:2,' не принадлежит') end; end.