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

нет 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