Код:
var
a, b:real;
function f(x:real):real;
begin
if (x>=-9.0) and (x<-5.0) then
f:=2.0-sqrt(4.0-sqr(x+7.0)) else
if (x>=-5.0) and (x<-4.0) then
f:=2.0 else
if (x>=-4.0) and (x<0.0) then
f:=-0.5*x else
if (x>=0.0) and (x<Pi) then
f:=sin(x) else
f:=x-Pi;
end;
Begin
writeln('Enter the point coordinates:');
write('a= ');
readln(a);
write('b= ');
readln(b);
if (a>=-9.0) and (a<=5.0) and (f(a)=b) then
writeln('Yes, belongs')
else
writeln('No, does not belong');
readln;
End.