Area

var
area,n,nn,nnn:real; x1,x2,x3,x4,y1,y2,y3,y4:longint;
procedure start;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
readln(x4,y4);
end;

procedure solve;
begin
area:=Abs((x1*(y2-y3))+(x2*(y3-y1))+(x3*(y1-y2)))*0.5;
n:=Abs((x4*(y1-y2))+(x1*(y2-y4))+(x2*(y4-y1)))*0.5;
nn:=Abs((x4*(y3-y1))+(x3*(y1-y4))+(x1*(y4-y3)))*0.5;
nnn:=Abs((x4*(y2-y3))+(x2*(y3-y4))+(x3*(y4-y2)))*0.5;
if area=n+nn+nnn then write('In') else write('Out');
end;

begin
start;
solve;
close(input); close(output);
end.