Дано число а.Проверить является ли оно степенью числа 5.Если явл. вывести номер степени

Question

Дано число а.Проверить является ли оно степенью числа 5.Если явл. вывести номер степени

Answer 1

Var
a,s,n,k:integer;
begin
 readln(a);
 k:=a;
 while a<>0 do
  begin;
   if (a mod 5<>0) and (a<>1) then
    begin;
     writeln('No');
     exit;
    end;
   a:=a div 5;
  end;
 n:=0;
 s:=1;
 while s<>k do
  begin;
   s:=s*5;
   inc(n);
  end;
writeln('Yes,',n);
end.