Решите листочек по информатике? На тему Алгоритмы и элементы программирования.

Работа не моя: program raketa; uses graph;   var gd,gm: integer; begin   detectgraph (gd,gm);   initgraph (gd,gm,'c: \tp7 ');   line (300,60,240,120);   line (240,120,240,360);   line (360,120,360,360);   line (240,360,360,360);   line (300,60,360,120);   line (240,210,210,240);   line (210,240,240,240);   line (360,210,390,240);   line (390,240,360,240);   circle (300,150,15);   circle (300,210,15);   circle (300,270,15);   bar (270,300,240,360);   line (240,360,180,450);   line (180,450,420,450);   line (420,450,360,360);   line (330,450,330,370);   line (300,450,300,365);   line (270,450,270,370);   line (240,330,180,330);   line (180,330,90,450);   line (172,330,80,445);   line (300,60,300,30); readln end.

Для сдвига влево на 1 шаг алгоритм такой: 1) запомнить значение 1 элемента массива во временную переменную 2) организовать цикл i от 1 до (размер массива - 1) 3) i-тому элементу массива присвоить значение (i+1)-ого 4) конец цикла 5) последнему элементу присвоить сохранённое во временной переменной для сдвига на n шагов применять данный алгоритм n раз. для сдвига вправо: 1) запомнить значение последнего элемента массива во временную переменную 2) организовать цикл i от (размер массива) до 2 3) i-тому элементу массива присвоить значение (i-1)-ого 4) конец цикла 5) первому элементу присвоить сохранённое