bilel

 write('ch = ');
  readln(ch);
    for a:=Length(ch) DownTo 2 do
        if (ch[a]=ch[a-1]) and( ch[a] = '*' ) Then
         delete(ch,a,1);
    write(ch);