Определить, является ли введённое натуральное число целой степенью числа 3 — Pascal(Паскаль)

program lab; 
const answer:array[boolean]  of string = ('net','da');
var n:real;
begin
   readln(n);
   writeln(answer[ n div 3 = n / 3]);
end.