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

program zz1;
var n,n1,n2,n3,n4,s:integer;
begin
read(n); //вводим начальное четырехзначное число
n1:= n div 1000; //обретаем первую цифру
n2:= (n div 100) mod 10; //находим вторую цифру
n3:= (n mod 100) div 10; //находим третью цифру
n4:= n mod 10; //обретаем четвертую цифру
if n1 mod 3=0 then s:=s+n1; //проверяем, если 1-ая цифра кратная трем, то прибавляем ее к сумме
if n2 mod 3=0 then s:=s+n2; //проверяем, если 2-ая цифра кратная трем, то прибавляем ее к сумме
if n3 mod 3=0 then s:=s+n3; //проверяем, если третья цифра кратная трем, то прибавляем ее к сумме
if n4 mod 3=0 then s:=s+n4; //проверяем, если 4-ая цифра кратная трем, то добавляем ее к сумме
write( сумма цифр кратных трем четырехзначного числа=,s); //выводим ответ
end.