C++ :

#include<bits/stdc++.h>
using namespace std;
long long n,k,t;
int main()
{
    cin>>n;
    while(n--)
    {
    	long long a=0,b=0,c=0;
    	cin>>k;
    	if(k==1)cin>>a>>b,t+=(a+b)*2;
    	if(k==2)cin>>a,t+=a*4;
    	if(k==3)cin>>a>>b>>c,t+=a+b+c;
	}
	cout<<t;
    return 0;
}

Pascal :

var n,i,x,a,b,c:longint;
    ans:int64;
begin
 readln(n);
 ans:=0;
 for i:=1 to n do
  begin
   read(x);
   case x of
    1:begin read(a,b);ans:=ans+(a+b)*2;end;
    2:begin read(a);ans:=ans+a*4;end;
    3:begin read(a,b,c);ans:=ans+a+b+c;end;
   end;
  end;
 writeln(ans);
end.