Составьте программу, выясняющую, можно ли представить данное натуральное число N в виде произведения двух составных сомножителей, каждый из которых кратен 3.

// PascalABC.NET

begin

 var N := ReadInteger;

 if N mod 9 = 0 then

   Print('Представимо')

 else

   Print('Непредставимо')

end.

Объяснение:

Если число p кратно 3, можно записать p = 3k.

Тогда N = 3k₁ · 3k₂ = 9k₁k₂.

Итак, если N кратно 9, то N представимо требуемыми сомножителями, в противном случае непредставимо.