1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
var s: string; c: char; i: byte; BEGIN write('Строка: '); readln(s); write('Символ: '); readln(c); for i:=1 to length(s) do begin write(s[i]); if (s[i]=c) then write(s[i]); end; writeln; END.