Объяснить ! program string29; var otvet: string; i: integer; s0,s: string; c: char; begin writeln('введите строкy s'); readln(s); writeln('введите строкy s0'); readln(s0); writeln('введите символ c'); readln(c); for i: =1 to length(s) do begin if s[i]=c then otvet: =otvet+s0+c else otvet: =otvet+s[i]; end; writeln('ответ: ', otvet); end.

Var
otvet:String; 
i:integer; 
S0,S:String;
C:char;
begin
//Считывание данных
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);

//Цикл посимвольная обработка строки
for i:=1 to length(S) do
begin
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C 
else
Otvet:=otvet+S[i];
end;

Writeln('ответ:', otvet);
end.