Const
 C=['К','к','П','п','С','с','Т','т','Ф','ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ'];
 W=['А','а','Е','е','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
Var
 Q:Set of Char;
 X:String;
 i,N:Byte;
Begin
 N:=0;
 Q:=[];
 Write('Enter the word: ');
 Readln(X);
 For i:=2 to Length(X) do
  If (X[i] in W) and (X[i-1] in C) and Not(X[i] in Q) then
   begin
    Inc(N);
    Q:=Q+[X[i]];
   end;
 Writeln('Result: ',N);
 Readln;
End.

Type
 Let1='А'..'Я';
 Let2='а'..'я';

Const
 W=['А','а','Е','е','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
Var
 i1:Let1;
 i2:Let2;
 Q:Set of Char;
 X:String;
 i:Byte;
Begin
 Q:=[];
 Write('Enter the word: ');
 Readln(X);
 For i:=1 to Length(X) do
  If (X[i] in W) and Not(X[i] in Q) then Q:=Q+[X[i]];
 For i1:='А' to 'Я' do
  If (i1 in W) and Not(i1 in Q) then Write(i1+' ');
 For i2:='а' to 'я' do
  If (i2 in W) and Not(i2 in Q) then Write(i2+' ');
 Readln;
End.

Type
 fgr='0'..'9';
Var
 A,B:Set of Char;
 i:fgr;
Begin
 A:=[];
 B:=[];
 For i:='0' to '4' do
  A:=A+[i];
 For i:='5' to '9' do
  B:=B+[i];
 Write('Old A: ');
 For i:='0' to '9' do
  If (i in A) then write(i+' ');
 Writeln;
 Write('Old B: ');
 For i:='0' to '9' do
  If (i in B) then write(i+' ');
 Writeln;
 A:=A+B;
 B:=A-B;
 A:=A-B;
 Write('New A: ');
 For i:='0' to '9' do
  If (i in A) then write(i+' ');
 Writeln;
 Write('New B: ');
 For i:='0' to '9' do
  If (i in B) then write(i+' ');
 Readln;
End.