Var
 S,S1:String;
 p:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 Writeln('Enter the word:');
 Readln(S1);
 Repeat
  p:=pos(S1,S);
  If p>0 then Delete(S,p,Length(S1));
 Until p=0;
 Writeln(S);
 Readln
End.

Var
 S,S1:String;
 i,j:Byte;
 b:boolean;
Begin
 Repeat
  Writeln('Enter the string:');
  Readln(S);
  If S[Length(S)]<>'.' then Writeln('Last symbol must be "."!');
 Until S[Length(S)]='.';
 i:=0;
 Repeat
  Inc(i);
  If (i=1) or ((i>1) and (S[i-1]=' ')) then
   begin
    S1:='';
    repeat
     S1:=S1+S[i];
     inc(i);
    until (S[i]=' ') or (S[i]='.');
    j:=0;
    b:=false;
    repeat
     inc(j);
     If S1[j]='s' then b:=true;
    until b or (j=length(S1));
    If b then write(S1+' ');
   end;
  Until S[i]='.';
 Readln;
End.

Const
 N=60;
Var
 S:String;
 i,j:Byte;
 C:Char;
Begin
 Randomize;
 S:='';
 For i:=1 to N do
  S:=S+Chr(97+Random(26));
 Writeln(S);
 Writeln;
 For i:=1 to (N div 2) do
  For j:=1 to (N div 2)-i do
   If ((j*2+2)<=Length(S)) and (S[j*2]>S[j*2+2]) then
    begin
     C:=S[j*2+2];
     S[j*2+2]:=S[j*2];
     S[j*2]:=C;
    end;
 For i:=1 to (N div 2) do
  For j:=1 to (N div 2)-i do
   If ((j*2+1)<=Length(S)) and (S[j*2-1]<S[j*2+1]) then
    begin
     C:=S[j*2+1];
     S[j*2+1]:=S[j*2-1];
     S[j*2-1]:=C;
    end;
 Writeln(S);
 Readln
End.

Var
 S,S1,W:String;
 i,p:Byte;
Begin
 Repeat
  Writeln('Enter the string:');
  Readln(S);
  If S[Length(S)]<>'.' then Writeln('Last symbol must be "."!');
 Until S[Length(S)]='.';
 Writeln('Enter the word:');
 Readln(W);
 i:=0;
 Repeat
  Inc(i);
  If (i=1) or ((i>1) and (S[i-1]='.')) then
   begin
    S1:='';
    repeat
     S1:=S1+S[i];
     inc(i);
    until S[i]='.';
    p:=Pos(W,S1);
    If p>0 then
     begin
      if S1[1]=' ' then Delete(S1,1,1);
      Writeln(S1);
     end;
   end;
  Until i=Length(S);
 Readln;
End.