Что данная программа выполняет?
program prim1;
var s: string; i, k: integer;
begin
writeln ('введите строку'); readln (s); k: =0;
for i: =1 to length (s) do
if s[i]='ь' then s[i]: ='ы' ;
writeln ('результат: ', s);
end.