// PascalABC.NET 3.0, сборка 1156 от 30.01.2016 begin var s:=ReadlnString('Вводите строку:'); for var i:=1 to s.Length do case s[i] of 'a':s[i]:='A'; 'b':s[i]:='B' end; Writeln(s) end.
<u><em>Тестовое решение:</em></u> Вводите строку: The monkey ate five bananas The monkey Ate five BAnAnAs