По сути нужно найти набор букв "child" и добавить сзади "ren".
1) Начало
2) Ввод числа n и массива s(n)
2.1) k = 0
3) Цикл по i от 1 до n-4
3.1) Если (s(i)="c") и (s(i+1)="h") и (s(i+2)="i") и (s(i+3)="l") и (s(i+4)="d"), то
3.1.1) k = k + 3
3.1.2) Переопределяем размер массива на s(n+k)
3.1.3) Цикл по j от i+5 до n
// Отодвигаем на 3 знака все буквы после s(i+4)="d"
3.1.3.1) s(j+3) = s(j)
3.1.3.2) Конец цикла по j
3.1.4) s(i+5)="r"; s(i+6)="e"; s(i+7)="n"
3.1.5) Конец Если
3.2) Конец цикла по i
4) Вывод массива s(n+k)
5) Конец
Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу.
program zd1;
var x,y,pi:integer;
begin
writeln ('Введите значение переменной X');
readln (x);
pi:=3,14;
if (0 <= x <= 1) then y:=x^4-4
else
y:=sqr(x)-sin (pi*sqr (x));
writeln ('Ответ = ', y);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.