Косте

 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.