var
s: string;
i: integer;
begin
Write('s = '); Readln(s);
for i := 1 to Length(s) do
if s[i] = 'а' then s[i] := 'б';
Write(s);
Readln
end.
var
s: string;
i: integer;
begin
Write('s = '); Readln(s);
for i := 1 to Length(s) do
if s[i] = 'а' then s[i] := 'б';
Write(s);
Readln
end.