begin
 write('Vvedite X: ');
  read(X);
  C[E2]:=C[f]-2*(C[f] div 3);
   min:=X-C[E2];
    for i:=C[E2+1] to 1 do begin
     if X-C[i]<min then
      min:=X-C[i];
      y:=C[i];
      end;
      Write('blizkii ', C[i]);
 end;