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

vara,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.