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

vara, b:integer;beginReadln(a,b);if (a+b)mod 3 = 0 then  Writeln((a+b)/3)else  Writeln(a+b);end.Пример:12 97