Var s:string; Begin write('Введите строку: ');readln(s); s[1]:='*'; s[Length(s)]:='*'; writeln('Полученная строка: ',s); readln; End.