Составьте программу, позволяющую определить, какая из двух точек (х1,y1), (х2,y2) ближе к началу координат.
Это паскаль

Program BiFi;Var x1,x2,y1,y2:real;Beginwriteln('vvedite koordinati pervoi tochki');readln(x1,y1);writeln('vvedite koordinati vtoroi tochki');readln(x2,y2);if sqrt(x1*x1+y1*y1) > sqrt(x2*x2+y2*y2) then writeln('pervaya blizhe')else if sqrt(x1*x1+y1*y1) <  sqrt(x2*x2+y2*y2) then writeln(' vtoraya blizhe')else writeln (' na odinakovom rasstoyanii');readln;end.