program exs;var a: integer;b : boolean;begin
read(a);b:=(a mod 3 <> 0) and (a mod 10 = 0);writeln(b);
end.
program exs;
var a: integer;
b : boolean;
begin
read(a);
b:=(a mod 3 <> 0) and (a mod 10 = 0);
writeln(b);
end.