<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s := ReadlnString('Введите строку:');
var c := ReadlnString('Какой символ удвоить?');
s := s.Replace(c, 2 * c);
s.Println
end.
Информация актуальна - требуется сейчас, пока идёт экзамен.
Информация полная - её достаточно для решения задачи.
Информация достоверная - решение правильное.
Информация непонятная - представлена на незнакомом языке.
! - отрицание (не)
& - умножение (*)