{
TASK:sum
LANG:Pascal
}

program sum;
var N:longint;
cases:integer;
begin
repeat
write('Vavedete N: ');readln(N);
until (N>2) and (N<100000000);
if (N mod 6 = 0) then cases:=1; {N/3 + N/3 + 1 + N/3 - 1}
writeln('Broq na na4inite za zapisvane na ',N,' e ',cases);
readln;

end.