{
TASK: dist
LANG: Pascal
}
program dist;

var x0, y0     : longword;
    x , y      : array[1..5000] of longword;
    n, i       : word;
    AB2, min   : qword;

begin
readln(n);
readln(x0,y0);

min := 1000000000000;

for i := 1 to n do
 begin
  readln(x[i],y[i]);
  AB2 := sqr(x[i] - x0) + sqr(y[i] - y0);
  if AB2 < min then min := AB2;
 end;

writeln(trunc(sqrt(min)));
end.
