codevs1057

题目地址：http://codevs.cn/problem/1057/

分析：

水题

代码：

var  n,m,i,a:longint;

begin

for i:=1 to 12 do

begin

readln(n);

m:=m+300-n;

if(m<0)then  begin write('-',i);  break;end;

a:=a+m div 100;

m:=m mod 100;

end;

if (m>0) then write(a*120+m);

end.