program q175495;
var s,s1: String;
begin
s:='Необходимо работать';
s1:='много ';
insert(s1,s,12); {Процедура вставляет в строку s подстроку s1 начиная с позиции 12}
WriteLn(s);
WriteLn('Для завершения нажмите ENTER...');
ReadLn;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.