Напишите эффективную программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество натуральных чисел, кратных числу a, на отрезке [a,b] (включая концы отрезка). Программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1≤a≤b≤30000. Программа должна вывести одно число: количество натуральных чисел кратных числу a на отрезке [a,b]

var a,b,i,k:integer;beginreadln(a);readln(b);k:=0;if (a>b) or (b>30000) or (a<1) then writeln('данные введены некорректно') else beginfor i:=a to b doif i mod a=0 then k:=k+1;writeln(k);end;end.