даны две точки на плоскости. Определите , какая из них находится ближе к началу
координат.

Немного короче будет вычислить значение sqr(x1)+sqr(y1)-sqr(x2)-sqr(y2) и дальше проверять его на ноль, больше и меньше )))

//PascalABC.Net 3.2beginvar x1:=readreal ('x1 ='); var y1:=readreal ('y1 =');var x2:=readreal ('x2 ='); var y2:=readreal ('y2 =');if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2)) then write ('Равноудалены') elseif (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)) then write ('Первая') else write ('Вторая');end.