Question

Составить программу, считывает 2 числа, если сумма этих чисел кратно 3, то результат уменьшает в 3 раза, в противном случае оставляет без изменений.

Answer 1

var
a, b:integer;
begin
Readln(a,b);
if (a+b)mod 3 = 0 then
  Writeln((a+b)/3)
else
  Writeln(a+b);
end.

Пример:
12 9
7