giúp em bài này ạ: ntucoder.net/Problem/Details/3268

Tham khảo chương trình:

`@` Pascal :

uses crt;
var
    n,i,i1,max1,max2,a,b,c,k : longint;
begin
clrscr;
    readln(n);
    for i := 1 to n do
        begin
        max1 := 0; max2 := 0;
        for i1 := 1 to 3 do
            begin
            read(k);
            if max1 < k then 
                begin
                max2 := max1;
                max1 := k;
                end
            else 
            if max2 < k then max2 := k;
            end;
        if max1 = 0 then writeln(0)
        else
        if max1 > max2 then writeln(max2*2+1)
        else writeln(max1*2);
        end;
end.