Написать программу. даны точки а(х1,у1) и в(х2,у2). определить, какая из точек располагается ближе к центру координат.

Program HelloWorld;var x1,y1,x2,y2:double;begin    readln(x1);    readln(y1);    readln(x2);    readln(y2);    x1:=sqrt(x1*x1+y1*y1);    x2:=sqrt(x2*x2+y2*y2);    if(x1>x2) then writeln(x2:0:2)    else if(x2>x1) then writeln(x1:0:2)    else writeln('Одинаково близко',x1:0:2);end.