1. program tochki1; uses crt; var x,y: real; begin writeln('Введите координаты точки:'); write('x='); readln(x); write('y='); readln(y); writeln('Please wait...'); if (y<=1) and (y>=cos(x)) and (y>=0) and (x>=0) then begin writeln('Точка (',x,',',y,') принадлежит заштрихованной области '); end else writeln('Точка (',x,',',y,') не принадлежит заштрихованной области '); end.
2. program tochki2; uses crt; var x,y: real; begin writeln('Введите координаты точки:'); write('x='); readln(x); write('y='); readln(y); writeln('Please wait...'); if (y>=x*x) and (y<=2-x) then begin writeln('Точка (',x,',',y,') принадлежит заштрихованной области '); end else writeln('Точка (',x,',',y,') не принадлежит заштрихованной области '); end.