Склавиатуры вводятся два целых числа. выведите ответ "да" если их произведение кратно 3. в противоположном случае введите ответ "нет".

Var
 
  a1, a2: integer;

begin
  a1 := 0;
  a2 := 0;
 
  writeln('enter the first value: ');
  read(a1);
  writeln('enter the second value: ');
  read(a2);
 
  if (a1*a2 mod 3 = 0) then
  begin
    writeln('da');
    end
  else
    writeln('net');
 
end.