Var s, t: string; begin 5 :=' монитор' ; writeIn (length(s)); writeIn (pos('o',s)); delete(s, 3, 2); writeln (s); t:=copy(s, 3, 3); insert ('т',t,4); writeln(t); t[1]:=UpCase(t[1]); writeln(t); end.

Здравствуйте! Вот краткое описание того, что делает данный код:

• Сначала определяются переменные "s" и "t" типа string.
• Затем числовой литерал 5 присваивается переменной "s".
• Выводится длина строки "s" при помощи функции length.
• Выводится позиция символа 'o' в строке "s" при помощи функции pos.
• Из строки "s" удаляются 2 символа начиная с позиции 3 при помощи процедуры delete.
• Полученная строка "s" выводится на экран.
• В переменную "t" копируется подстрока из строки "s" начиная с позиции 3 и длиной 3 символа при помощи функции copy.
• В строку "t" вставляется символ 'т' на позицию 4 при помощи процедуры insert.
• Полученная строка "t" выводится на экран.
• Первый символ в строке "t" заменяется на его заглавный вариант при помощи функции UpCase.
• Полученная строка "t" выводится на экран.

Надеюсь, это помогло! Если у вас есть еще вопросы, не стесняйтесь задавать.