Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые являются степенью пятерки

Function check5div(m : Longint) : Boolean;
Begin
  if m div 5 = 1 then check5div:=True else
    If m mod 5 <>0 then check5div:=False else
      check5div:=check5div(m div 5);;
End;
 
k:=0;
for i:=1 to N do
  If check5div(m[i]) then Writeln(m[i]);
Writeln('всего значений: ',k);

Function check5div(m : Longint) : Boolean;
Begin
  if m=5 then check5div:=True else
    If m mod 5 <>0 then check5div:=False else
      check5div:=check5div(m div 5);;
End;

function check5div(m : Longint) : Boolean;
begin
  if m < 5 then check5div := false
  else check5div := (m = 5) or check5div(m div 5);
end;

function check5div(m : Longint) : Boolean;
begin
  if m < 5 then check5div := false
  else check5div := (m = 5) or check5div(m div 5);
end;
 
var n:LongInt;
begin
Read(n);
Writeln(check5div(n));
Readln;
end.

Function check5div(m : Longint) : Boolean;
Begin
check5div:=(m=5) or ((m mod 5=0) and check5div(m div 5));
End;