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.
