CONST
 Sogl=['Б','В','Г','Д','Ж','З','К','Л','М','Н',
       'П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ',
       'б','в','г','д','ж','з','к','л','м','н',
       'п','р','с','т','ф','х','ц','ч','ш','щ'];
VAR
 f_in,f_out:Text;
 Ch:Char;
 N:Word;

BEGIN
 Assign(f_in,'D:\txt_in.txt');
 ReSet(f_in);
 Assign(f_out,'D:\txt_out.txt');
 ReWrite(f_out);
 N:=0;
 Repeat
  Read(f_in,Ch);
  Write(f_out,Ch);
  If (Ch in Sogl) then Inc(N);
 Until Eof(f_in);
 Close(f_in);
 Writeln(f_out);
 Writeln(f_out,'N_sogl= ',N);
 Close(f_out);
END.