pascal：
var

i,b,m,n:longint;

a:array[0..12] of longint;

begin

for i:=1 to 12 do

readln(a[i]);

i:=0;b:=0;m:=0;

repeat

inc(i);

b:=b+300;

b:=b-a[i];

if b<0 then begin

writeln(-i);

exit;

end else begin

n:=b div 100;

m:=m+n*100;

b:=b-n*100;

end;

until i=12;

if b>=0 then writeln(m*1.2+b:0:0);

end.