решить задачку в паскале    составьте алгоритм замены в какой-нибудь литерной величине всех букв "а" на буквы "б" и наоборот (при такой замене,например, из слова "баба" должно получиться слово "абаб") выведите полученную строку на экран

var s:string;i:integer;beginreadln(s);for i:=1 to length(s) doif s[i]='а' then s[i]:='б'elseif s[i]='б' then s[i]:='а';writeln(s);end.