Составьте программку, дозволяющую определить, какая из двух точек (х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) gt; sqrt(x2*x2+y2*y2) then writeln('pervaya blizhe')
else if sqrt(x1*x1+y1*y1) lt;  sqrt(x2*x2+y2*y2) then writeln(' vtoraya blizhe')
else writeln (' na odinakovom rasstoyanii');
readln;
end.