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

Question

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

Answer 1

Var a:longint;
Begin
readln(a);
if a mod 3=0 then writeln('Yes') else writeln('No');
End.

Answer 2

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.