Даны четыре целых числа. Отыскать сумму тех из их, которые кратны

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