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

Это паскаль

Program BiFi;

Var x1, x2, y1, y2:real;

Begin

writeln ('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.