Составить программу в Pascal ABC ,которая из заданной строки получала бы новую строку ,удалив все "#" и повторив каждый символ ,отличный от знака решотка дважды. Вывести на экран ,полученную новую строку.

Предыдущий
вопрос Следующий
вопрос

program RemoveAndDoubleCharacters;
var
str, newStr: string;
i: integer;
begin
writeln('Enter a string:');
readln(str);
newStr := '';
for i := 1 to length(str) do
begin
if str[i] <> '#' then
begin
newStr := newStr + str[i] + str[i];
end;
end;
writeln('New string: ', newStr);
end.

Пример работы программы:

Enter a string:
abc#123#456#
New string: aabbcc112233445566