Вычислить сумму цифр четырехзначного числа, которые кратны 3 паскаль

Const l=4;
var n,s: integer; i: byte;
begin
  write ('Введите 4-значное число:  ');
  readln (n);  
  for i:=1 to l do begin
    if (n mod 10) mod 3 =0
      then s:=s+(n mod 10);
    n:=n div 10;
  end;
  writeln;
  writeln ('Сумма цифр, кратных 3 = ',S)
end.
------------------------------
Пример:
Введите число:  3456
Сумма цифр, кратных 3 = 9

Может быть 8?.........