Определить процедуру, позволяющую распознавать степень пятерки. - Pascal ABC

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

Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

Решение задачи: «Определить процедуру, позволяющую распознавать степень пятерки.»

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

uses crt;
procedure stpn(x:integer; var st:real);
begin
st := ln(x)/ln(5);
end;
var n, a, i:integer;
st:real;
c:char;
begin
writeln('Введите число членов последовательности');
readln(n);
for i:=1 to  n do
    begin
    writeln('Введите член последовательности');
    readln(a);
    stpn(a,st);
    writeln('Показатель степени числа ',a,' по основанию 5 =', st);
    writeln('Для продолжения нажмите любую клавишу, для выхода нажмите Esc');
    while KeyPressed do c := ReadKey;
    c:=readkey;
    if c = #27 then exit;
    end;
end.

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

В первой строке используется библиотека crt, которая является стандартной библиотекой языка Pascal ABC.
В следующей строке определена процедура stpn, которая принимает целочисленный аргумент x и переменную st типа real. Внутри процедуры значение переменной st устанавливается равным логарифму x по основанию 5.
Далее объявлены переменные n, a и i типа integer, а также переменная st типа real.
В строке считывания вводится число членов последовательности.
Затем, в цикле for, считываются члены последовательности.
Для каждого члена последовательности вызывается процедура stpn, передавая в нее значение переменной a и переменную st, которая изначально установлена равной 0.
После вызова процедуры stpn выводится значение переменной st, которое представляет собой показатель степени числа a по основанию 5.
Затем выводится сообщение для продолжения или выхода из программы.
Цикл for продолжается до тех пор, пока пользователь не нажмет любую клавишу.
Если пользователь нажимает клавишу с кодом #27, то программа завершается.
В конце программы считывается символ, введенный пользователем, и если он равен #27, то программа завершается.