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

uses crt;var n,i,k:integer;beginread(n);for i:=1 to n-1 doif i mod k=0 thenk:=k+1;writeln(k);end.