Определить делится ли нацело произведение чисел на 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.