begin
  WriteLn('Ответ: ', ReadLnInteger('Введите целое число N:') mod 9 = 0 ? 'можно :)' : 'нельзя :(');
end.