Помогите решить, очень надо
Найти количество делителей натурального числа, больших К (К вводить с клавиатуры). (только через операторы if и for)

Program del;uses crt;var N,K,i,m:integer;beginwrite( 'введите число N=' ); readln(N);write( 'введите ограничитель делителей (K<N) K=' ); readln(K);for i:=K+1 to N do    if  N mod i = 0  then m:=m+1;writeln( 'количество делителей числа N=' ,N, '  равно m=', m);readlnend.