function times_exist(num,digit:integer):integer;
var
	mone,a:integer;
begin
	mone:=0;
	a:=num;
	while a<>0 do
		begin
			if (a mod 10)=digit
				then mone:=mone+1;
			a:=a div 10;
		end;
	times_exists:=mone;
end;