6v

program ka;
uses crt;
var x,y: real;
begin
writeln ('вводим координаты точки'); read (x,y);
if ( x>=0) and (x<=3.14) and ( y>=0) and (y<=(ABS (sin(2*x))))
then writeln ('внутри') else writeln ('не внутри');
readkey;
end.