Var
 a:array[1..15] of integer;
 i,b,Imin,Sum:integer;
Begin
 Writeln('Vvedite 15 chisel');
 for i:=1 to 15 do
  begin
   Write('a[',i:2,']= ');
   Readln(a[i]);
  end;
 b:=a[1];
 Imin:=1;
 for i:=2 to 15 do
  if a[i]<b then
   begin
    b:=a[i];
    Imin:=i;
   end;
 writeln('Minimal: a[',Imin,']= ',b);
 Sum:=0;
 for i:=Imin+1 to 15 do Inc(Sum,a[i]);
 Writeln('Sum= ',Sum);
 readln;
end.