"Разветвленный алгоритм" (области)

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.