Verified answer

var s: string;

i: integer;

begin

readln(s);

for i:=1 to length(s) do

if s[i]='o' then s[i]:='a';

write(s);

end.