Циклические алгоритмы, Помогите решить к паре!!!! Опции

[Flatterer19]

Написать программу, которая подчитывает количество чисел кратных k, но некратных l, в диапазоне от m до n.

[Lapp]

x:=0;
for i:=m to n do if (i mod k=0)and(i mod l>0) then Inc(x);