ПОМОГИТЕ ПОЖАЛУЙСТА, ДЕЛЬФИ ПРОГРАММИРОВАНИЕ, НУЖНО ЧЕТКО НАПИСАТЬ ФОРМУЛИРОВКУ ЗАДАЧИ
program n_4; var s: string; i, n: byte; begin write('введите строку: '); readln(s); n := length(s) ; for i := 1 to n do insert(s[i], s, length(s) - i + 2); writeln('ответ: ', s) end.