Определить делится ли нацело произведение чисел на 3

Var a:longint;

Begin

readln (a);

if a mod 3=0 then writeln ('Yes') else writeln ('No');

End.

Var

a, b: integer;

Begin

Writeln ('Введите 2 числа');

Read (a, b);

if (a*b mod 3 = 0) then Writeln ('Произведение чисел ', a, ' и ', b, ' делится нацело на 3')

else Writeln ('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится');

end.