Verified answer

Программа:

var x,y: real;

begin

write('x, y: ');

readln(x,y);

if (y>=x*x)and(x<=1)

then writeln('принадлежит')

else writeln('не принадлежит');

end.

Пример:

x, y: 0.5 2

принадлежит