{
TASK:dist
LANG:Pascal
}

program dist;


var n: word;
var p: array [0.. 4999, 0..1] of longword;
var shortest: longword;

procedure main();
var i: word;
var x,y,d: longword;
var s: extended;
begin
   readln(n);
   for i := 0 to n do
   begin
      readln(x, y);
      p[i, 0] := x;
      p[i, 1] := y;
   end;
   shortest := $FFFFFFFF;
   for i := 1 to n do
   begin
      x := p[0,0]-p[i,0];
      y := p[0,1]-p[i,1];
      d := x*x+y*y;
      if d < shortest then shortest := d;
   end;
   s := sqrt(shortest);
   shortest := trunc(s);
   writeln(shortest);
end;

begin
   main();
end.
