C :

#include"stdio.h"
int main()
{
	int n,i,m,sum=0;
	while(scanf("%d",&n)!=EOF)
	{
		sum=0;
		if(n!=0)
		{for(i=0;i<n;i++)
		{scanf("%d",&m);
		sum=sum+m;}
		printf("%d\n",sum);}
		else break;
	}
	return 0;
} 

Pascal :

var a:array[1..100000] of longint;
    i,n,x,p,j:longint;
begin
 for i:=1 to 100000 do
  begin
   read(n);
   if not(n=0) then
    begin
     for j:=1 to n do
      begin
       read(x);
       a[i]:=a[i]+x;
      end;
    end
   else
    begin
     p:=i-1;
     break;
    end;
  end;
 for i:=1 to p do
  writeln(a[i]);
end.