Program proga;
uses crt;
type let='а'..'я';
var sogl:set of let;
    text: set of char;
    c:char;
    s:string;
    i:byte;
begin
Clrscr;
  writeln('введите текст, заканчивающийся точкой');
  readln(s);
  if s[length(s)]<>'.' then s:=s+'.';
  text:=[];
  sogl :=['к','п','с','т','ф','х','ц','ч','ш','щ'];
  writeln('Согласные буквы в предложении или слове: ');
  repeat
  if s[i] in sogl then text:=text+[s[i]];
  i:=i+1;
  until s[i]='.';
  for c:='a'  to 'я' do if c  in text then write(c);
readln;
end.

Program proga;
uses crt;
const
 sogl:array[1..10] of Char=('к','п','с','т','ф','х','ц','ч','ш','щ');


var
 s:string;
 i,j,n:byte;
 b:boolean;

begin
 Clrscr;
 writeln('Введите текст:');
 readln(s);
 n:=0;
 for i:=1 to 10 do
  begin
   b:=true;
   j:=0;
   repeat
    inc(j);
    if s[j]=sogl[i] then b:=false;
   until (b=false) or (j=length(s));
   if b then
    begin
     inc(n);
     write(' '+sogl[i]);
    end;
  end;
 writeln;
 if n=0 then writeln('Таких букв нет!');
 readln;
end.