C :

#include<stdio.h>
int main()
{
	int a[13],s,i,k,x;
	for(i=0;i<12;i++)
		scanf("%d",&a[i]);
	s=0;k=0;x=0;
	for(i=0;i<12;i++)
	{
		if(s+300>=a[i])
		{
			s+=300-a[i];
			while(s>=100)
			{
				s=s-100;
				k++;
			}
		}
		else
		{
			printf("%d",-(i+1));
			x++;
			break;
		}
	}
	if(x==0)
		printf("%d",k*120+s);
	return 0;
}

C++ :

#include <iostream>
using namespace std;
int P[12];
int fun(int P[])
{
	int L=0;
	int M=0;
	for(int i=0;i<12;i++)
	{
		if((L+300-P[i])<0){
			cout<<"-"<<i+1<<endl;
			return 0;
		}
		else
		{
			M+=((L+300-P[i])/100);
			L=(L+300-P[i])%100;
		}
	}
	cout<<M*120+L<<endl;
	return 1;
}
int main()
{
	while((cin>>P[0]))
	{
		for(int i=1;i<12;i++)
			cin>>P[i];
		fun(P);
	}
	return 0;
}

Pascal :

var     i:integer;s,x:int64;a:array[1..12]of integer;
begin
  for i:=1 to 12 do readln(a[i]);
  for i:=1 to 12 do
   begin
     x:=x+300-a[i];
     if (x>0)and(x>100) then begin s:=s+x div 100*100;x:=x mod 100;end
       else if x<0 then begin writeln('-',i);exit;end;
   end;
  s:=s+s div 5;
  writeln(s+x);
end.