Даны координаты двух точек a(x1,y2) и b(x2,y2) в прямоугольной системе координат. какая из этих двух точек находится дальше от начала координат?

Var x1,x2,y1,y2: real; begin writeln('введите координаты точки а'); readln(x1,y1); writeln('введите координаты точки в'); readln(x2,y2); if (sqrt(sqr(x1)+sqr(> (sqrt(sqr(x2)+sqr(   then writeln('а дальше') else if (sqrt(sqr(x1)+sqr(< (sqrt(sqr(x2)+sqr(   then writeln('в дальше') else writeln('расстояние одинаковое'); end.