Что данная программа выполняет?
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.