20v

program ka;
uses crt;
var x,y: real;
begin
writeln ('вводим координаты точки x, y' ); read (x,y);
if ( x>=-1.57) and (x<=1.57) and  (y>=0) and (y<=(ABS (cos(2*x))))

then writeln (' внутри') else writeln ('не внутри');
readkey;
end.