4v

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