for i:=1 to 10 do begin
   readln(b[i]);
   b[i]:=a[i];
   s:=0;
   k[1.1]:=b[1];
   k[1.2]:=1;
  for i:=1 to 10 do begin
   while(i<6)   
    begin
     s:=s+a[i];
    end;
   if k[1.1]>a[i]  
    then begin
      k[1.1]:=a[i];
      k[1.2]:=i;
    end;
  begin;
  a[k[1,2]]:=k[1.1];