P:=a; a=23
p s p>0

s:=0;
while p>0 do
begin
s:=s+p mod 10;
p:= p div 10;
end;

Рассмотрите такой вариант (дано упрощённо, по возможности доработайте под свои требования):
1. Максимальная маска сети 32. 32-27=5, то есть количество адресов в сети может быть 2⁵=32 (сюда входят широковещательный и сетевой адрес - два адреса, заняты), из которых 32-2=30 остаётся под устройства.
2. Для данной маски сети диапазоны адресов такие: 0-31, 32-63, 64-95, 96-127, 128-159, 160-191, 192-223 и 224-255. Если адрес сети 193.125.78.100, то адреса будут такие: от 193.125.78.96 до 193.125.78.127.
3. Из п.№2 видно, что 193.125.78.100 входит в сеть, устройство 193.125.78.113 также в этой сети.

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

begin
  var s:=ReadlnString;
  var a:=s.ToWords('.').Select(t->Trim(t)).ToArray;
  var b:=s.ToWords(Arr('.',' '))
      .GroupBy(t->t).Select(t->(t.Key,t.Count))
      .Where(t->t[1]>1).Select(t->t[0]).ToArray;
  a.Cartesian(b,(p,q)->p.Contains(q)?p:'')
      .Where(t->t.Length>0).Distinct.PrintLines
end.

Примеры
Мама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла полы
Таня мыла полы

Мама мыла раму. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла раму
Таня мыла полы