50 баллов. PascalABC
Дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами - запятая, после последнего слова - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят хотя бы в одно слово.
Глухие согласные: к,п,с,т,ф,х,ц,ч,ш,щ.

var s:string;gl,mn: set of char;i:integer;c:char;beginwriteln('Введите текст:');readln(s);gl:=['к','п','с','т','ф','х','ц','ч','ш','щ'];mn:=[];for i:=1 to length(s) do if s[i] in gl then mn:=mn+[s[i]];for c:='к' to 'щ' do if c in mn then write(c:2);writeln;end.Пример:Введите текст:дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами - запятая, после последнего слова - точка. к п с т х ч щ