Ответ:

var i,s,a,b: integer;

begin

readln(a,b);

s:=0;

for i:=a to b do

if (i mod 3=0) then

s:=s+1;

writeln (s);

end.

Объяснение:

a - начало интервала

b - конец интервала

если a > b, то цикл не будет работать

i mod 3=0 - проверка на кратность 3

s:=s+1 - подсчёт количества чисел при верном условии