var

s:array[1..12] of integer;

i,t,q,x:integer;

c:real;

begin

x:=0;

c:=0;

for i:=1 to 12 do

begin

read(s[i]);

end;

for i:=1 to 12 do begin

x:=x+300;

if xs[i]

then begin

x:=x-s[i];

q:=q+x div 100;

x:=x mod 100;

end;

end;

c:=x*1.2;

writeln(c:0:0);

end.