// 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 представимо требуемыми сомножителями, в противном случае непредставимо.