Question

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

Answer 1

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