17 lines
229 B
ObjectPascal
17 lines
229 B
ObjectPascal
var
|
|
a, m: int64;
|
|
s: string;
|
|
|
|
begin
|
|
ReadLn(s);
|
|
m := 0;
|
|
for a := 2 to s.Length do
|
|
begin
|
|
if (string(s[a - 1] + s[a]) = 'àõ') then
|
|
begin
|
|
s[a - 1] := 'ó';
|
|
s[a] := 'õ';
|
|
end;
|
|
end;
|
|
write(s);
|
|
end. |