Корявая, конечно схема, прог на скорую руку нормальных не нашел. В общем. Сначала идет в овале "Начало", потом треугольник влево "Да", вправо "Нет". Нет уходит сразу на следующий треугольник, а да на прямоугольник с кодом a[i] := i;. Во втором треугольнике второй цикл от 0 до 4 (i := 0 to 4 do). От него влево "Да", вправо "Нет". Нет уходит сразу на слово "Конец", а да на прямоугольник с кодом k := a[2 * i]; a[2 * i] := a[2 * i + 1]; a[2 * i + 1] := k