Дано натуральное число n. определить к - количество делителей этого числа, не превышая его ( n = 12, его делители 1, 2, 3, 4, 6, к = 5 )

Uses crt;
var n,i,k:integer;
begin
read(n);
for i:=1 to n-1 do
if i mod k=0 then
k:=k+1;
writeln(k);
end.