Для реализации длинной арифметики на языке Паскаль, особенно для работы с большими числами, такими как 7 в 125 степени, необходимо использовать специальный подход, так как стандартные типы данных не могут вместить такие большие значения.

Существует несколько способов реализации длинной арифметики, но один из самых простых — это использование массива для хранения цифр числа. Давайте рассмотрим шаги, которые помогут вам реализовать эту задачу:

1. Определите структуру данных: Создайте массив для хранения цифр числа. Например, можно использовать массив целых чисел, где каждая ячейка будет хранить одну цифру числа.
2. Инициализация: Инициализируйте массив, чтобы он мог хранить достаточное количество цифр. Например, для 7 в 125 степени вам может понадобиться массив размером 200.
3. Функция умножения: Напишите функцию, которая будет умножать текущее большое число на 7. Эта функция должна учитывать перенос при умножении, так как результат может превышать 9.
4. Цикл возведения в степень: Используйте цикл для повторного умножения числа на себя 125 раз. Каждый раз вызывайте функцию умножения, чтобы обновить ваше большое число.
5. Вывод результата: Напишите функцию для вывода числа из массива в правильном порядке, начиная с самой значимой цифры.

Теперь давайте посмотрим на пример кода, который иллюстрирует эти шаги:

program LongArithmetic;

const
    MAX_DIGITS = 200;

type
    BigNumber = array[0..MAX_DIGITS - 1] of Integer;

var
    result: BigNumber;
    i, carry: Integer;

procedure Initialize(var num: BigNumber);
begin
    for i := 0 to MAX_DIGITS - 1 do
        num[i] := 0;
    num[0] := 1; // Начинаем с 1
end;

procedure Multiply(var num: BigNumber; multiplier: Integer);
var
    i, temp, carry: Integer;
begin
    carry := 0;
    for i := 0 to MAX_DIGITS - 1 do
    begin
        temp := num[i] * multiplier + carry;
        num[i] := temp mod 10; // Сохраняем последнюю цифру
        carry := temp div 10; // Переносим оставшиеся
    end;
end;

procedure PrintNumber(var num: BigNumber);
var
    start: Integer;
begin
    start := MAX_DIGITS - 1;
    while (start > 0) and (num[start] = 0) do
        Dec(start); // Находим первую ненулевую цифру
    for i := start downto 0 do
        Write(num[i]);
    Writeln;
end;

begin
    Initialize(result);
    for i := 1 to 125 do
        Multiply(result, 7);
    
    PrintNumber(result);
end.

В этом коде мы определили массив BigNumber для хранения цифр числа. Функция Initialize инициализирует массив, а функция Multiply выполняет умножение. В конце мы выводим результат с помощью функции PrintNumber.

Запустив этот код, вы получите значение 7 в 125 степени. Это пример того, как можно реализовать длинную арифметику на языке Паскаль.