Даны координаты двух точек 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.