с клавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3

program zz1;

var a, r, i:integer; / / задаем переменные целого типа

begin

for i:=1 to 10 do / / организуем цикл, в котором введем с клавиатуры десять чисел

begin

write (' введите ', i, ' число '); / / вводим с клавиатуры число

read (a);

if a mod 3 = 0 then r:=r + a; / / проверяем, если введенное число делится на три без остатка, то вычисляем сумму чисел

end;

write (' сумма чисел кратных 3 = ', r); / / выводим ответ

end.