<span>var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('В этом слове нет этого символа') else begin i:=0; while pos(symb,s)<>0 do begin write(pos(symb,s)+i,' '); i:=i+1; Delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.</span>