// II. Задана строка символов. заменить в ней все 'А' на 'ААА';
Program For1;
var
S,S1:String;
i:integer;
begin
Writeln('Введите строку символов');
readln(S);
Writeln('Введите целое число (N > 0) N=');
for i:=1 to length(S) do
if S[i]='A' then S1:=S1+'AAA'
else S1:=S1+S[i];
S:=S1;
Writeln('Новая строка символов:',S);
end.