Написать программу, которая будет определять сколько чисел делиться на 3 без остатка на диапозоне от n до k ​

var

 sum, n, k, i: integer;

begin

 sum := 0;

 write('Введите n и k:');

 read(n, k);

 for i := n to k do

   if(i mod 3 = 0) then

     sum := sum + 1;

 write(sum);

end.