Для каждого из K чисел выведите в отдельную строку число из первого массива, наиболее близкое к данному

program a2;
var n,k,l,m,r,i:longint;
a,b:array[1..300000] of longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(n,k);
readln;
for i:=1 to n do
 read(a[i]);
readln;
for i:=1 to k do
 read(b[i]);
for i:=1 to k do
 begin
  l:=0;
  r:=n+1;
  while l<r-1 do
   begin
    m:=l+(r-l) div 2;
    if a[m]<b[i] then l:=m
     else r:=m;
   end;
  if a[r]=b[i] then writeln(a[r]);
 end;
end.

for i:=1 to k do
 begin
  min:=2000000001;
  l:=0;
  r:=n+1;
  while l<r-1 do
   begin
    m:=l+(r-l) div 2;
    if abs(a[m]-b[i])<min then
     begin
      min:=abs(a[m]-b[i]);
      l:=m
     end
    else r:=m;
   end;
  writeln(a[r]);
 end;

uses crt;
const n=5;
      k=4;
      a:array[1..n] of integer=(1,4,5,8,10);
      b:array[1..k] of integer=(5,6,1,9);
var i,j,l,r,m:integer;
begin
clrscr;
for i:=1 to n do
write(a[i]:3);
writeln;
for i:=1 to k do
write(b[i]:3);
writeln;
for i:=1 to k do
 begin
  l:=1;
  r:=n;
  for j:=1 to n do
   begin
    m:=(l+r) div 2;
    if a[m]>b[i] then r:=m else l:=m;
   end;
    if l<>r then
     begin
      if abs(a[r]-b[i])<abs(a[l]-b[i]) then writeln(a[r])
      else writeln(a[l]);
     end
    else writeln(a[l])
 end;
readln
end.

program a2;
var n,k,l,m,r,i:int32;
a,b:array[1..300000] of int32;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(n,k);
readln;
for i:=1 to n do
 read(a[i]);
readln;
for i:=1 to k do
 read(b[i]);
for i:=1 to k do
 begin
  l:=1;
  r:=n;
  while l<r-1 do
   begin
    m:=l+(r-l) div 2;
    if a[m]<b[i] then l:=m
     else r:=m;
   end;
  if l<>r then
   begin
    if abs(a[r]-b[i])<abs(a[l]-b[i]) then writeln(a[r])
    else writeln(a[l]);
   end
   else writeln(a[l]);
 end;
end.

var
    n : LongInt;
    a : array [1..100000] of Int64;
 
function f(k : Int64) : Int64;
var
    l, r, m : Int64;
begin
    l := 1; r := n;
 
    while l < r do begin
        m := l + (r-l) div 2;
        if a[m] >= k then r := m
        else l := m+1
    end;
 
    if (l < n) and (Abs(a[l]-k) > Abs(a[l+1]-k)) then f := a[l+1]
        else if (l > 1) and (Abs(a[l]-k) >= Abs(a[l-1]-k)) then f := a[l-1]
    else f := a[l]
end;
 
var
    k, i : LongInt;
    t : Int64;
begin
    ReadLn(n, k);
    for i := 1 to n do Read(a[i]);
 
    for i := 1 to k do begin
        Read(t);
        WriteLn(f(t))
    end
end.