###
uses school;
  var a := ReadAllLines('17_3_f.txt').ConvertAll(x -> x.ToInteger);
  var d := new integer[1001];
  for var i := 1 to 1000 do
    for var j := 1 to 1000 do
      if i mod j = 0 then
        d[i] += 1;
  var m := a[0];
  for var i := 1 to a.Length - 1 do
    if d[a[i]] > d[m] then
      m := a[i];
  var k := 0;
  var mkd := 0;
  for var i := 0 to a.Length - 2 do
    if (d[НОД(a[i], m)] >= 4) and (d[НОД(a[i + 1], m)] >= 4) then
    begin
      k += 1;
      mkd := Max(mkd, d[НОД(a[i], a[i + 1])])
    end;
  Print(k, ' ', mkd)