подготовить ответ к зачету на вопрос "Информация, информационное общество"

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x));
  foreach var e in s do
    Writeln(e.Item1:10,e.Item2:10,e.Item3:10)
end.

Тестовое решение:
n= 20
         1         1         1
         3         9        27
         5        25       125
         7        49       343
         9        81       729
        11       121      1331
        13       169      2197
        15       225      3375
        17       289      4913
        19       361      6859

Она изобразит квадрат размером 45х45 ячеек:

1. Направо 45 (это равносильно "Направо 1", потому что 45 - это 44 + 1 (4 * 11 + 1), а 4 поворота возвращают её в начальное состояние.
2. Вперед 45 (проходим 45 ячеек в направлении "направо")

3. Направо 45 (направление будет "вниз")
4. Вперед 45 (проходим 45 ячеек в направлении "вниз")

5. Направо 45 (направление будет "влево")
6. Вперед 45 (проходим 45 ячеек в направлении "влево")

7. Направо 45 (направление будет "вверх")
8. Вперед 45 (проходим 45 ячеек в направлении "вверх")

Дальше опять тоже самое (4 поворота с перемещением).