Описать функцию IsPowerN(K,N) логического типа, возвращающую true, если целый параметр K(>0) является степенью числа N(>1), и false в противном случае. Дано число N(>1) и набор из 10 целых положительных чисел. С помощью функции IsPowerN найти количество степеней числа N в данном наборе — Pascal(Паскаль)

uses crt;{podklu4aem moduli}
const p=10;{kilkist povtoriv}
var i,K,N:integer;{i s4et4ik, K vvodime 4islo,N-stepin}

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 clrscr;{o4istka ekrana}
write('Vvedite zile N,(N>1) -> ');
read(N);{vvod N}
writeln;
 for i:=1 to p do
  begin
   write('Vvedite zele K,(K>0) -> ');
   read(k);{vvod K}
   if IsPowerN(K,N) then writeln('Vvedene 4islo je kvadratom'){vivod rezultatu v zaleznost vid povertajemogo zna4enna}
    else writeln('Vvedene 4islo ne je kvadratom');
  end;
readln;{ZADERZKA EKRANA}
readln;
end.