Как здесь пройти лабиринт? нужно собрать все 14 корон.

ответ:

я постаралась все нарисовать.незнаю понятно или нет

отдел +;

использует из "";

пост

  длинамассива = 100;

пер

  массивы: ряд 3 из ряд длинамассива из цел;

  сч1, сч2: узкцел;

вставкой(ряд+: ряд из цел);

пер

  число: цел;

  познеуп: цел;

  позвставки: цел;

  поз: цел;

указ

  от познеуп: =1 до размер(ряд)-1 вып

    число: =ряд[познеуп];

    позвставки: =0;

    пока число < ряд[позвставки] вып

      увеличить(позвставки)

    кон;

    от поз: =познеуп-1 до позвставки по -1 вып

      ряд[поз+1]: =ряд[поз]

    кон;

    ряд[позвставки]: =число

  кон

кон вставкой;

выбором(ряд+: ряд из цел);

пер

  позвставки: цел;

  познеуп: цел;

  число: цел;

  поз: цел;

указ

  от познеуп: =0 до размер(ряд)-2 вып

    позвставки: =познеуп;

    число: =ряд[познеуп];

    от поз: =познеуп+1 до размер(ряд)-1 вып

      если число < ряд[поз] то

        число: =ряд[поз];

        позвставки: =поз

      кон

    кон;

    ряд[позвставки]: =ряд[познеуп];

    ряд[познеуп]: =число

  кон

кон выбором;

обменом(ряд+: ряд из цел);

пер

  число: цел;

  познеуп: цел;

  позобмена: цел;

указ

  от познеуп: =0 до размер(ряд)-2 вып

    от позобмена: =размер(ряд)-2 до познеуп по -1 вып

      если ряд[позобмена] < ряд[позобмена+1] то

        число: =ряд[позобмена];

        ряд[позобмена]: =ряд[позобмена+1];

        ряд[позобмена+1]: =число

      кон

    кон  

  кон

кон обменом;

указ

  от сч1 : = 0 до 2 вып

    от сч2 : = 0 до длинамассива - 1 вып

      массивы[сч1, сч2] : = узк(вширцел(целчасть(.случ() * 21) - 20 * 2))

    кон

  кон;

  обменом(массивы[0]);

  выбором(массивы[1]);

  вставкой(массивы[2])

кон .