Описать функцию, возвращающую True, если параметр является степенью числа 5 - Turbo Pascal

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

Описать функцию IsPower5(K) логического типа, возвращающую True, если целый параметр K (> 0) является степенью числа 5, и False в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 целых положительных чисел.

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

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

function IsPower5(k: longint): boolean;
var
  p: longint;
begin
  p := 1;
  while p < k do
    p := p * 5;
  IsPower5 := p = k;
end;
 
var
  i, x: integer;
 
begin
  for i := 1 to 10 do
  begin
    Readln(x);
    Writeln(IsPower5(x));
  end;
  Readln
end.

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

В данном коде описывается функция IsPower5, которая принимает один параметр k типа longint (длинное целое число) и возвращает значение типа boolean (логическое значение), указывающее, является ли k степенью числа 5. Внутри функции объявлены две переменные p и k, инициализированные значением 1. Затем происходит цикл while, который выполняется до тех пор, пока значение переменной p меньше значения параметра k. Внутри цикла значение переменной p умножается на 5. После завершения цикла, значение переменной IsPower5 устанавливается в логическое значение true, если значение переменной p равно значению параметра k. Затем в основной части кода, в цикле for, считываются значения переменных i и x из стандартного ввода. Для каждого значения i от 1 до 10 вызывается функция IsPower5 с аргументом x, и результат выводится на экран. После завершения цикла, вызывается функция Readln для считывания значения переменной i. Таким образом, данный код проверяет, является ли каждое из чисел от 1 до 10 степенью числа 5, и выводит соответствующий результат на экран.