Три точки А (х₁; у₁), В (х₂; у₂), С (х₃; у₃) задаются своими координатами. Написать программу, которая определяет, какая из этих точек ближе к началу координат.

Var

x1, x2, x3, y1, y2, y3, r1, r1, r3: real;

begin

writeln ('введите координаты A') ;

readln (x1, y1) ;

writeln ('введите координаты B') ;

readln (x2, y2) ;

writeln ('введите координаты C') ;

readln (x3, y3) ;

r1:=sqrt (x1*x1+y1*y1) ;

r2:=sqrt (x2*x2+y2*y2) ;

r3:=sqrt (x3*x3+y3*y3) ;

if (r1<=r2) and (r1<=r3) writeln ('точка А ближе') ;

if (r2<=r1) and (r2<=r3) writeln ('точка B ближе') ;

if (r3<=r1) and (r3<=r2) writeln ('точка C ближе') ;

readln;

end