Описать функцию IsPowerN(K, N) логического типа

function isPowerN(k, n: longint): boolean;
begin
  while k >= n do
  begin
    if k mod n <> 0 then
    begin
      isPowerN := false;
      exit;
    end else k := k div n;
  end;
  if k = 1 then isPowerN := true else isPowerN := false;
end;
 
begin
  writeln(IsPowerN(9, 4));
end.

var
  q, k, n, i: integer;
 
function isPowerN(k, n: longint): boolean;
begin
  while k >= n do
  begin
    if k mod n <> 0 then
    begin
      isPowerN := false;
      exit;
    end 
    else 
      k := k div n;
  end;
  if k = 1 then 
    isPowerN := true 
  else 
    isPowerN := false;
end;
 
begin
  k := 0;
  write('N? ');
  readln(n);
  for i := 1 to 10 do
  begin
    write('Введите очередное число в наборе: ');
    readln(q);
    if IsPowerN(q, n) then
      inc(k);
    writeln('Является ли число: ', q, ' степенью числа n: ', n, ': ', IsPowerN(q, n));
  end;
  writeln('Таких чисел: ', k);
end.

var
q,k,n,i:integer; 
function isPowerN(k,n:longint):boolean;
begin
while k >= n do
begin
if k mod n <> 0 then
begin
isPowerN:=false;
exit;
end 
else 
k:= k div n;
end;
if k = 1 then 
isPowerN:= true 
else 
isPowerN:= false;
end;
 
begin
k := 0;
write('Введите число N: ');
readln(n);
for i := 1 to 10 do
begin
write('Введите очередное число в наборе: ');
readln(q);
if IsPowerN(q,n) then
inc(k);
writeln('Является ли число: ', q, ' степенью числа n: ', n, ': ', IsPowerN(q, n));
end;
writeln('Таких чисел: ', k);
end.