Дано натуральное число N. Найти количество двузначных чисел, произведение цифр которых равно N

Program n1;var n,k,i: integer;begink:=0;readln(n);for i:=10 to 99 do if (i mod 10)*(i div 10)=n then k:=k+1;write(k);end.