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

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