Составить программу возведения заданного числа в третью степень - Turbo Pascal

Формулировка задачи:

Доброго всем времени суток. Начну с того что я в Паскале практически полный ноль(( Помогите пожалуйста решить следующую задачу: Составить программу возведения заданного числа в третью степень, имеющую следующую закономерность: 1³=1 2³=3+5 3³=7+9+11 4³=13+15+17+19 5³=21+23+25+27+29 Заранее спасибо! ну и сори за столь тупую тему.

Решение задачи: «Составить программу возведения заданного числа в третью степень»

Листинг программы

program cube;
var n, i, j, term, cube: longint;
begin
  writeln('Введите натуральное число n');
  readln(n);
  cube := 0;
  term := 1;
  for i := 1 to n - 1 do
    for j := 1 to i do
      term := term + 2;
  for i := 1 to n do
  begin
    cube := cube + term;
    term := term + 2
  end;
  writeln(n, '^3 = ', cube);
  readln;
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных n, i, j, term и cube типа longint.
Выводится сообщение для ввода натурального числа n.
Переменная cube инициализируется значением 0.
Переменная term инициализируется значением 1.
Запускается цикл for, который выполняется n-1 раз (где n - введенное пользователем число).
Внутри цикла выполняется вложенный цикл for, который также выполняется i-1 раз (где i - текущее значение переменной i).
Внутри вложенного цикла переменная term увеличивается на 2.
После окончания вложенного цикла переменная term обновляется, добавляя 2 к предыдущему значению.
Запускается еще один цикл for, который выполняется n-1 раз.
Внутри этого цикла переменная cube увеличивается на текущее значение переменной term.
По окончании цикла выводится результат в формате n^3 = <значение переменной cube>.
Программа завершается, ожидая ввода от пользователя.