Пусть первый кладоискатель разделит добычу поровну и предложит выбрать любую часть разделенной добычи второму кладоискателю. Претензий не будет ни у кого, т.к. первый делил, а второй выбирал.
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.
Объяснение:
3*10^4+2*10^3+6*10^2+7*10^1
Это обонятельная информация
так как говорится про запах, а нос это орган обоняния
1-3 2-2 3-2 4-4 вроде как