Program ed;</br>
var s,snew:string;</br>
i,n:byte;</br>
Begin
write('vvedi stroku');</br> readln(s);</br>
n:=length(s);</br>
snew:=s[1];</br>
for i:=2 to n do
if s[i]<>s[i-1] then snew:=snew+'*'+s[i] else
snew:=snew+s[i];</br>
writeln(snew);</br>
readln;</br>
End.