Const
 Sp:String='*';
 Spp:String='    ';
VAR
 S:String;
 i,i1:Byte;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 i:=0;
 Repeat
  Inc(i);
  i1:=Pos(Spp,S);
  If i1>0 then
   begin
    Delete(S,i1,4);
    Insert(Sp,S,i1);
   end;
 Until i1=0;
 WriteLn(S);
 ReadLn;
END.