Сделать на паскале Напишите программу, которая заменяет в символьной строке все буквы «а» на буквы «б» с цикла «пока» (while): 2) 11. Запишите какое значение будет иметь переменная s после вы-полнения фрагмента программы s:= '123456789' вставить('ABC', s, 3) s:= '123456789'; Insert('ABC', s, 3);

1)

var

 S : String;

begin

 readln(s);

while (Pos('а', S) > 0) or (Pos('a', S) > 0) do

   begin

     if Pos('а', S) > 0 then

       S[Pos('а',S)] := 'б'

         else

           S[Pos('a', S)]:= 'b';

   end;

writeln(S);

end.

2)

12ABC3456789