一道水题都wa到爆。。

var
ans:int64;
n,i,m,j,a,b,c:longint;
begin
readln(n);
for i:=1 to n do
  begin
  ans:=0;
  readln(m);
  for j:=1 to m do
    begin
    readln(a,b,c);
    ans:=ans+a*c;
    end;
   writeln(ans);
  end;
end.

应该没错的啊。。