Определить все трехзначные числа кратные 3. Использовать признак: число кратно 3, если сумма его цифр делится на 3 без остатка — Pascal(Паскаль)

program z_number;
uses crt;
var CounterI: word;
begin
 clrscr;
 writeln('Все трехзначные числа, кратные трем');
for CounterI := 102 to 999 do
  if ((CounterI mod 10) + (CounterI div 10 mod 10) + (CounterI div 100)) mod 3 = 0 then
   writeln(CounterI);
 readln;
end.