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

varx1,x2,y1,y2:real;beginwriteln('Введите координаты точки А');readln(x1,y1);writeln('Введите координаты точки В');readln(x2,y2);if (sqrt(sqr(x1)+sqr(y1)))>(sqrt(sqr(x2)+sqr(y2)))  thenwriteln('А дальше')elseif (sqrt(sqr(x1)+sqr(y1)))<(sqrt(sqr(x2)+sqr(y2)))  thenwriteln('В дальше')elsewriteln('Расстояние одинаковое');end.