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

if n2 mod 3=0 then s:=s+n2; / /проверяем, если вторая цифра кратная трем, то прибавляем ее к сумме

if n3 mod 3=0 then s:=s+n3; / /проверяем, если третья цифра кратная трем, то прибавляем ее к сумме

if n4 mod 3=0 then s:=s+n4; / /проверяем, если четвертая цифра кратная трем, то прибавляем ее к сумме

write (' сумма цифр кратных трем четырехзначного числа=', s); / /выводим ответ

end.