В заданном интервале целых натуральных чисел от N до M, подсчитайте количество чисел кратных K. в паскаль Помогите

Вопрос школьника по предмету Информатика

В заданном интервале целых натуральных чисел от N до M, подсчитайте количество чисел кратных K. в паскаль Помогите

Ответ учителя по предмету Информатика

var m,n,i,k,c:integer;

begin

readln(n,m,k);

for i:=n to m do

if i mod k = 0 then c:=c+1;

write(c);

end.