Прочитайте одиннадцатый параграф учебника Создайте бд. дескрипторы количество полей не менее трёх типов полей не менее трёх различных полей например текстовой числовой денежный количество записей не менее трёх​

"Впервые продемонстрировал огромные потенциальные возможности применения двоичной системы для вычислений ещё изобретатель логарифмов шотландский математик Джон Непер (1550-1617)."
В 1617 году Джон Непер изобрел счетное устройство (па́лочки Не́пера, или не́перовы па́лочки), призванное облегчить арифметические вычисления. Устройство состояло из брусков с нанесенными на них цифрами от 0 до 9 и кратными им числами. Для умножения какого-либо числа бруски располагали рядом так, чтобы цифры на торцах составляли это число. ответ можно было увидеть на боковых сторонах брусков. Помимо умножения, палочки Непера позволяли выполнять деление и извлечение квадратного корня.

Гутер Р. С., Полунов Ю. Л. Двоичная арифметика в инструментальном счете у Джона Непера // Историко-математические исследования. Вып. 23. М.: Наука, 1978. С. 156-167.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var L:='бвгджзйлмнр'.ToList;
  var s:=ReadlnString;
  var p:=Pos('.',s);
  if p>0 then s:=s[:p];
  var aw:=s.ToWords;
  var i:=1;
  while i<=aw.Length-1 do begin
    var L1:=L.ToList;
    foreach var c in L1 do
      if not aw[i-1].Contains(c) then L.Remove(c)
      else
        if aw[i].Contains(c) then L.Remove(c);
    i+=2
    end;
  if L.Count>0 then L.Println(',')
  else Writeln('Нет звонких согласных, удовлетворяющих условию')
end.

Примеры
бодро    шагаем  дрова несем        друзья  товарищи
д

вместе весело    шагать    по   просторам
Нет звонких согласных, удовлетворяющих условию

   багряный   закат красный   восход
й,н,р