uses crt;
var
i:integer;
s:string;
begin
clrscr;
writeln('vvedite tekst');
readln(s);
for i:=1 to length(s) do begin
if (s[i]='a') then s[i]:='o'
else if s[i]='o' then s[i]:='a';
end;
writeln(s);
readln;
end.
uses crt;
var
i:integer;
s:string;
begin
clrscr;
writeln('vvedite tekst');
readln(s);
for i:=1 to length(s) do begin
if (s[i]='a') then s[i]:='o'
else if s[i]='o' then s[i]:='a';
end;
writeln(s);
readln;
end.