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

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

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