Срочно, помогите
Найдите кол-во целых чисел от а до б включительно, которые не делятся на 3

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016begin  var a,b:integer;  Write('Введите a,b: '); Read(a,b);  Writeln('Чисел, не делящихся на 3, на [',a,';',b,']- ',    Range(a,b).Where(x->x mod 3<>0).Count)end.ПримерВведите a,b: 12 24Чисел, не делящихся на 3, на [12;24]- 8