无限剑制

【问题描述】 

       有一天，红A很无聊，对着一群蚂蚁发动了无限剑制（Unlimited Blade Works）。发动后，红A将会射出n把剑，每把剑除了有一个基本伤害ai，还有一个暴击系数bi和一个剑气伤害ci。红A想知道能造成的总伤害，公式为

【输入格式】 

第一行包含一个整数n，即红A会丢几把剑。

接下来n行，每行包含3个整数ai，bi，ci，分别表示基本伤害，暴击系数和剑气伤害。

【输出格式】 

    只有一行，包含一个整数s，表示红A能造成的总伤害。

【样例输入】 

3

1 1 1

2 0 4

3 0 8

【样例输出】 

14 

【数据说明】 

    对于100%的数据，1<=n<=1,000,000，0<=ai<=100，0<=bi<=10，0<=ci<=10；

分析

水题一道，自己算一下样例，就知道怎么做了。

程序：

var
n,tj:int64;
i:longint;
a,b,c:array[0..1000000]of longint;
begin
    readln(n);
    tj:=0;
    for i:=1 to n do
    begin
        readln(a[i],b[i],c[i]);
        tj:=tj+c[i]+a[i]*b[i];
    end;
    write(tj);
end.