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

Предыдущий
вопрос Следующий
вопрос

program SumMultiples;
var
num1, num2, num3, num4: integer;
sum: integer;
begin
writeln('Введите четыре целых числа:');
readln(num1, num2, num3, num4);

sum := 0;

if ((num1 mod 3 = 0) and (num1 > 5)) then
sum := sum + num1;

if ((num2 mod 3 = 0) and (num2 > 5)) then
sum := sum + num2;

if ((num3 mod 3 = 0) and (num3 > 5)) then
sum := sum + num3;

if ((num4 mod 3 = 0) and (num4 > 5)) then
sum := sum + num4;

writeln('Сумма чисел, кратных трем и больше пяти: ', sum);
end.