Даны координаты двух точек 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(y1)))>(sqrt(sqr(x2)+sqr(y2)))  then writeln('А дальше') else if (sqrt(sqr(x1)+sqr(y1)))<(sqrt(sqr(x2)+sqr(y2)))  then writeln('В дальше') else writeln('Расстояние одинаковое'); end.