Пpогpамма. Дана непустая оследовательность слов из стpоч-          ных pусских букв; между соседними словами - запятая, за           последним словом - точка. Напечатать в алфавитном поpядке          все звонкие согласные буквы, котоpые входят более чем в           одно слово.

Даны два предложения, состоящие не менее чем  из  5 слов.     Слова каждого предложения заменить на  совпадающие с ними      по длине слова из другого предложения  (Заменять на соот-     ветствующие по счёту слова - например, второе слово  пер-     вого предложения из 5 букв заменить  на  второе встретив-     шееся слово из 5 букв во втором).

type строка=array [1..16] of char;           дата=record число:1..31;                       месяц:1..12;                       год:1900..1979                 end;           анкета=record фамилия:строка;                         пол:(муж, жен);                         деньрожд:дата                  end;           группа=array [1..25] of анкета;      Описать процедуру печ (Гр,Бук), печатающую все фамилии лю-      дей из группы Гр,  начинающиеся с литературы Бук,  и  даты      рождения этих людей.