var

x, y, z, count, maxsum, a, b: integer;

f: text;

begin

assign(f,'C:\17.txt');

reset(f);

count := 0;

maxsum := 0;

readln(f, x);

readln(f, y);

while not eof(f) do begin

readln(f, z);

a := Max(x, y, z) * Max(x, y, z);

b := x + y + z - Min(x, y, z) - Max(x, y, z);

b := Min(x, y, z) * Min(x, y, z) + b * b;

if a = b then begin

count := count + 1;

if (x + y + z > maxsum) then maxsum := x + y + z;

end;

x := y;

y := z;

end;

writeln(count, ' ', maxsum);

end.