Напишите функцию для нахождения куба числа - Pascal ABC

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

Напишите функцию для нахождения куба числа (число в третьей степени). Используя эту функцию, выведите на экран таблицу кубов чисел от 1 до 10.

Решение задачи: «Напишите функцию для нахождения куба числа»

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

function Cube(const x: Integer): Integer;
begin
  Cube := x*x*x;
end;
var
  I: Integer;
begin
  for I := 1 to 10 do
    Writeln(I,'^3 = ', Cube(I));
end.

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

Создаётся функция Cube, которая принимает целочисленный аргумент x и возвращает целочисленное значение.
В функции Cube используется оператор присваивания для присвоения переменной Cube значения xxx, то есть куба числа x.
Создаётся переменная I типа Integer.
В цикле for I от 1 до 10 выполняется следующая последовательность действий:
- Выводится значение I в виде строки с помощью функции Writeln.
- Выводится значение Cube(I) в виде строки с помощью функции Writeln.
Цикл for завершается после выполнения 10 итераций.