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

var a,b,c,d,sum:intger; begin writeln(введите 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('Ни одно число не удовлетворяет условию');