Var s: string; i: integer;
begin
write (Введите строку: ); read(s);
for i:=1 to length(s) do
if s[i]=о then s[i]:=*;
write (Полученная строка: ,s);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.