const
    x = 10; y =9;

var
    i,j : integer;
    T : array[1..x,1..y] of integer;
    max, suma : integer;
    max_x, max_y : integer;

begin
    max_x:=0; max_y:=0;

    if (x>1) and (x>1) then max:=T[2,1]+T[2,2]+T[1,2];

    { wyliczanie dla elementow "srodkowych" (otoczonych przez 8 elementow }
    for i:=2 to x-1 do
    begin
        for j:=2 to y-1 do
        begin
            suma := T[i,j+1] + T[i+1,j+1] + T[i+1,j] + T[i+1,j-1] + T[i,j-1] + T[i-1,j-1] + T[i-1,j] + T[i-1,j-1];

            if suma > max then
            begin
                max := suma;
                max_x := i;
                max_y := j;
            end;
        end;
    end;

    { wyliczanie dla elementow w naroznikach (otoczonych przez 3 elementy }
    suma := T[2,1]+T[2,2]+T[1,2];
    if suma > max then begin max:=suma; max_x:=1; max_y:=1 end;

    suma := T[x-1,y]+T[x-1,y-1]+T[x,y-1];
    if suma > max then begin max:=suma; max_x:=x; max_y:=y end;

    suma := T[x-1,1]+T[x-1,2]+T[x,2];
    if suma > max then begin max:=suma; max_x:=x; max_y:=1 end;

    suma := T[1,y-1]+T[2,y-1]+T[2,y];
    if suma > max then begin max:=suma; max_x:=1; max_y:=y end;

    { wyliczanie dla elementow przy krawedziach (otoczonych przez 5 elementow }

    for i:=2 to x-1 do
    begin
        suma := T[i-1,1] + T[i-1,2] + T[i,2] + T[i+1,2] + T[i+1,1];

        if suma > max then
        begin
            max := suma;
            max_x := i;
            max_y := 1;
        end;
    end;

    for j:=2 to y-1 do
    begin
        suma := T[1,j-1] + T[2,j-1] + T[2,j] + T[2,j+1] + T[1,j+1];

        if suma > max then
        begin
            max := suma;
            max_x := 1;
            max_y := j;
        end;
    end;

    writeln(max,' ',max_x,' ',max_y);
end.