Const
 C=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ']+
   ['Б','В','Г','Д','Ж','З','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ'];
Var
 S:String;
 W:Set of Char;
 i:byte;
 L:Char;
Begin
 W:=[];
 Writeln('Enter the string:');
 Readln(S);
 writeln;
 for i:=1 to Length(S) do
  if S[i] in C then W:=W+[S[i]];
 for L:='б' to 'щ' do
  if L in W then write(L+' ');
 for L:='Б' to 'Щ' do
  if L in W then write(L+' ');
 Readln
End.

Const
 C=['a'..'z']+['A'..'Z']+['а'..'я']+['А'..'Я']+['0'..'9'];
Var
 S:String;
 L,L_min,i:byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 L_min:=255;
 i:=0;
 Repeat
  while not (S[i] in C) do i:=i+1;
  L:=0;
  repeat
   L:=L+1;
   i:=i+1;
  until not (S[i] in C) or (i=Length(S));
  if L<L_min then L_min:=L;
 Until i=Length(S);
 Writeln('Shortest word length is ',L_min);
 Readln
End.

Var
 T:Array[1..30] of Integer;
 i:Integer;
Begin
 Randomize;
 for i:=1 to 10 do T[i]:=-12+Random(11);
 for i:=11 to 20 do T[i]:=-5+Random(11);
 for i:=21 to 30 do T[i]:=Random(11);
 for i:=1 to 30 do write(T[i]:4);
 writeln;
 writeln;
 i:=0;
 Repeat
  i:=i+1;
 Until T[i]>0;
 Writeln('n = ',i);
 Readln
End.

Var
 A:Array[1..5,1..3] of byte;
 i,j,n:byte;
 Ar_Mean:real;
Begin
 Randomize;
 Ar_Mean:=0;
 n:=0;
 for i:=1 to 5 do
  begin
   for j:=1 to 3 do
    begin
     A[i,j]:=Random(21);
     Write(A[i,j]:4);
     Ar_Mean:=Ar_Mean+A[i,j]/15;
    end;
   writeln;
  end;
 writeln;
 writeln('Arithmetic Mean is ',Ar_Mean:0:3);
 writeln;
 for i:=1 to 5 do
  for j:=1 to 3 do
   if ((A[i,j] mod 2)=0) and (1.0*A[i,j]<Ar_Mean) then n:=n+1;
 writeln('n = ',n);
 Readln;
End.

Var
 N:LongInt;
 A:Array[1..10] of byte;
 i,k,min,max:byte;
Begin
 Write('N (<2147482648) = ');
 Readln(N);
 k:=Trunc(Ln(N)/Ln(10))+1;
 for i:=1 to k do
  begin
   A[k-i+1]:=N mod 10;
   N:=N div 10;
  end;
 min:=10;
 max:=0;
 for i:=1 to k do
  begin
   if A[i]>max then max:=A[i];
   if A[i]<min then min:=A[i];
  end;
 for i:=1 to k do
  if (A[i]<>min) and (A[i]<>max) then write(A[i]);
 Readln;
End.