var
  
  i,Nmin:integer;
  minRaz:real;

  
   s,c:string;
   Raz:real;
   el:real;
begin

 
  i:=1;
  writeln('Vvedite elementi');
  readln(el);

  minRaz:=abs(el-i);
  

  str(minRaz:1:0,c);
  s:=s+c;

  repeat
    i:=i+1;
    readln(el);

    Raz:=abs(el-i);
    str(Raz:1:0,c);
    s:=s+c;

    if (abs(el-i)<minRaz) and (el<>0) then
      begin
        minRaz:=abs(el-i);

      end;

  until el=0;

  str(minRaz:1:0,c);
  for i:=1 to length(s) do
    if s[i]=c then writeln('i=',i);

  writeln('minRaz=',minRaz:3:2);
    readln;
end.

var
  f:TEXT;
  i:integer;
  el,Raz,minRaz:real;
begin
  Assign(f,'C:\tt_tt');
  ReWrite(f);
  i:=1;
  writeln('Vvedite elementi:');
  Write(i:3,'  ');
  readln(el);

  minRaz:=abs(el-i);
  WriteLn(f,i);

  repeat
    i:=i+1;
    Write(i:3,'  ');
    readln(el);

    Raz:=abs(el-i);

    if (Raz<minRaz) and (el<>0) then
      begin
        minRaz:=Raz;
        ReWrite(f);
        WriteLn(f,i);
      end
    else
    if (Raz=minRaz) and (el<>0) then
      WriteLn(f,i);

  until el=0;

  Close(f);
  ReSet(f);
  WriteLn;
  Writeln('Nomera:');
  Repeat
   ReadLn(f,i);
   Write(i:3,' ');
  Until EoF(f);
  Close(f);
  Erase(f);
  writeln;

  writeln('minRaz=',minRaz:3:2);
  readln;
end.