Ввести с клавиатуры два числа. являются ли числа кратными 3. if x%3 == 0

Var a,b:Integer;
begin
Read(a,b);
if (a mod 3=0) and (b mod 3=0) then
WriteLn('Являются')
else
WriteLn('Не являются');
end.