Создать БД в Access
База болезней: название, симптомы, процедуры, перечень рекомендуемых лекарств с указанием требуемого количества. База медикаментов: название, формы выпуска, дозировки, взаимозаменяемость. Формирование рецепта после осмотра больного.

Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  kk : Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  kk := 0;
  for i1 := 1 to 9 do
    for i2 := 0 to 9 do
      for i3 := 0 to 9 do
        if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then
          if ( Frac((i1+i2+i3)/7)=0 ) then
          begin
            Chislo := i1*100 + i2*10 + i3;
            if ( Frac(Chislo/7)=0 ) then
            begin
               Memo1.Lines.Append(inttostr(Chislo));
               inc(kk);
            end;
          end;
end;

Т.к. первый слева байт твой IP-адреса узла =  первому слева байту адрес сети, то первый байт Маски = 11111111. Аналогично второй байт Маски = 11111111.

Переведем число 161, которому равен третий байт IP-адреса, в двоичный код. Получаем: 161 = 10100001. Т.к. при поразрядной конъюнкции IP-адреса узла и Маски получилось 160 (10100000), то третий байт Маски может принимать минимальное значение 11100000. Т.е. это дает нам пять нулей.

Четвертый байт адреса сети равен 0. Следовательно, наименьшее значение четвертого байта Маски может быть 00000000. Это дает восемь нулей.

Суммируем получившиеся нули. 5 + 8 = 13.

вот и всё)

ответ: 13