Question

Помогите с паскалем пожалуйста

Answer 1

Ответ:

program m1;

var x,y: integer;

begin

writeln('Введите координаты точки');

read(x,y);

if (0<y) and ((-x>y) or ((x>0) and (y<x*x))) then

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

end.