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

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

program Func5;
uses crt;
var K:longint;i:integer;
function IsPover(K:longint):boolean;
var a:longint;
begin
 a:=1;
 repeat
 a:=a*5;
 until a>=K;
 if a=K then IsPover:=true
 else IsPover:=false;
end;
begin
 clrscr;
 write('K=');readln(K);
 write(IsPover(K));
 readln;
end.

автор: puporev