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