Для узла с IP-адресом 48.95.137.38 адрес сети равен 48.95.128.0. Найдите наибольшее возможное количество единиц в двоичной записи маски подсети

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(5,5,-9,9);
  a.Println(3); Writeln(15*'-');
  var s:=a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))
      .Where(t->t[1]>1).OrderBy(t->t[0]);
  var c:=a.ElementsWithIndexes.OrderBy(t->t[0]).ToArray;
  Writeln('Знач. Кол-во Индексы');
  foreach var p in s do begin
    Write(p[0]:3,p[1]:7,'   ');
    var q:=p[0];
    var s1:=c.IndexesOf(t->t[0]=q);
    foreach var k in s1 do
      Write('(',c[k][1]+1,',',c[k][2]+1,') ');
    Writeln
    end
end.