Вася и работа

Вася предпочитает работать в дни, номера которых делятся на 3 или заканчиваются на 3. Если происходит и то и другое одновременно, то Вася в этот день не работает. Выведите 1, если Вася работает в заданный день n и 0 в противном случае.
program b8;
 var n, a, b:longint;
  begin
   readln(n);
   if (n mod 3=0) or (n mod 10=3) then
   b:=1
   else b:=0;
   if (n mod 3=0) and (n mod 10=3) then
    b:=0;
    writeln(b);
end.