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

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(Ни одно число не удовлетворяет условию);