Program pag69_38;
const n=100;
var A,B:array[0..n,0..n] of 0..1;
    i,j,k,l:0..n;
    d,d_min:longint;
    r:Real;
begin

{Aici introducerea punctelor in multimile A si B . . .}

d_min:=-1;
for i:=0 to n do for j:=0 to n do if a[i,j]=1 then
for k:=0 to n do for l:=0 to n do if b[k,l]=1 then
 begin
  d:=sqr(i-k)+sqr(j-l);
  if d_min<0 then d_min:=d;
  if d<d_min then d_min:=d;
 end;
r:=Round(Sqrt(d_min));
writeln(r:5:2);
readln
end.