LT3 PASCAL

var    n:real;
begin
    assign(input, 'LT3.INP');reset(input);
    assign(output, 'LT3.OUT');rewrite(output);
    read(n);
    while n>1 do 
        n:=n/3;
    if n=1 then write(true)
    else writeln(false);
end.