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

var z,x,c,v,sum:integer; begin writeln(Напишите 4 числа:); read(z,x,c,v); sum:=0; if (a mod 3 =0)and(a>5) then sum:=sum+z; if (b mod 3 =0)and(b>5) then sum:=sum+x; if (с mod 3 =0)and(c>5) then sum:=sum+c; if (d mod 3 =0)and(d>5 ) then sum:=sum+v; if sum <> 0 then writeln(sum); else writeln('Ни одно число не удовлетворяет условию');