информатика, 10 класс, разветвленный алгоритм "области"

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.