Дано предложение. Заменить в нём все слоги "ах" на "ух".

P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие program n1; uses crt;var     st:string;     i:integer;beginwriteln('Введите строку'); readln(st);for i:=1 to length(st) do    if (st[i]='а') and (st[i+1]='х') then st[i]:='у';writeln(st);end.