Вот схему рисовать не стала думаю поймешь
Var
S : String;
i : Byte;
Begin
Readln(S);
For i:=1 to Length(S) do
If S[i]='о' then S[i]:='а' else
If S[i]='а' then S[i]:='о';
Writeln(S);
end.
Если завтра будет дождь, то я возьму с собой зонт.
Неверно, что Земля плоская и находится на трех слонах или черепахах.
Неверно, что на олимпиаде по математике нам дают задания по биологии и русскому языку или литературе.
Неверно, что клавиатура и мышь используются для вывода информации или отображения информации.