program Znanija;
var m, k3, k4: integer;
begin
	readln (m);
	case m mod 4 of
		0:
		begin 
			k3 := 0;
			k4 := m div 4;
		end;
		1:
		begin
			k3 := 3;
			k4 := (m - 9) div 4;
		end;
		 2:
		begin
			k3 := 2;
			k4 := (m - 6) div 4;
		end;
		 3:
		begin
			k3 := 1;
			k4 := (m - 3) div 4;
		end;
	end;
	if (m=1) or (m=2) or (m=5) then
	writeln('0 0')
	else
	begin
		write(k3);
		write(' ');
		writeln(k4);
	end;
end.