Verified answer

var x,y,dist:real;

begin

   readln(x,y);

   dist:=sqrt(x*x+y*y);

   readln(x,y);

   x:=sqrt(x*x+y*y);

   if (x>dist) then writeln('2-я точка ближе')

      else if (x<dist) then writeln('1-я точка ближе')

         else writeln('Одинаково')

end.