Вычислить сумму цифр четырехзначного числа, которые кратны 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.........