function Strongpoint

function Strongpoint(a:int64):integer;
var b, fix:int64;
bo:boolean;
begin
repeat
fix:=1;
b:=b+1;
if (a div 10000>0) then fix:=fix*(a div 10000);
if ((a mod 10000) div 1000>0) then fix:=fix*((a mod 10000) div 1000);
if ((a mod 1000) div 100>0) then fix:=fix*((a mod 1000) div 100);
if ((a mod 100)div 10>0) then fix:=fix* ((a mod 100)div 10);
fix:=fix*(a mod 10);
if a=fix then bo:=true;
a:=fix;
until (bo=true);
Result:=b;
end;