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

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