Какие то программу,которая считает в строке все символы А и заменяет их на символ В
В паскале

Var a:string; i,d:integer;BeginReadln (a);d:=length (a);For i:=1 to d doIf a[i]='A' then a[i]:='B';Writeln (a);end.