Сколько среди чисел от 132 до 188 (включительно) таких, что их простыми делителями являются только числа 2 и/или 3?

1441622//PascalABC.NET 3.1 сборка 1200begin  var k := 0;    for var i := 132 to 188 do   begin    var n := i;        while n mod 2 = 0 do      n := n div 2;    while n mod 3 = 0 do      n := n div 3;        if n = 1 then begin      k += 1;      writeln(i);    end;  end;    writeln(k);end.