Даны четыре целых числа. Найти сумму тех из них, которые кратны трем( паскаль)

Question

Даны четыре целых числа. Найти сумму тех из них, которые кратны трем( паскаль)

Answer 1

Var a,b,c,d,sum:intger;beginwriteln(введите 4 числа:);read(a,b,c,d);sum:=0;    if (a mod 3 =0)and(a>5) then sum:=sum+a;if (b mod 3 =0)and(b>5) then sum:=sum+b;    if (с mod 3 =0)and(c>5) then sum:=sum+с;    if (d mod 3 =0)and(d>5 ) then sum:=sum+d;    if sum <> 0 then writeln(sum);else writeln('Ни одно число не удовлетворяет условию');