program ing;

const m=300;

var a:array[1..m] of integer;

i,j,k,money:integer;

n:real; t:boolean;

begin t:=true;

for j:=1 to 12 do begin

read(money);

k:=k+300-money;

while k>=100 do begin

n:=n+100; k:=k-100;

end;

if k