type 
    Toado = Record
        x: Real;
        y: Real;
    End;
Var
    a, b, c, m: Toado;
    fi, fo:text;
Function  DienTich( A, B, C: Toado) : Real;
Begin
    DienTich:= 1;
    DienTich:= 1/2*abs((b.x-a.x)*(c.y-a.y)-(c.x-a.x)*(b.y-a.y));
End;
Function Vitridiem(m, a, b, c: Toado):Boolean;
Begin
    if Dientich(m, a, b) + Dientich(m, a, c) + Dientich(m, b, c) = Dientich(a, b, c) then
        Vitridiem:= True
    Else Vitridiem:= False;
End;
Begin 
    assign(fi, 'TAMGIAC.INP');
    reset(fi);
    readln(fi, a.x, a.y);
    readln(fi, b.x, b.y);
    readln(fi, c.x, c.y);
    readln(fi, m.x, m.y);
    close(fi);

    assign(fo, 'TAMGIAC.OUT');
    rewrite(fo);
    writeln(fo, Dientich(a, b, c):14:2);
    if (Vitridiem(m, a, b, c)= true) then write(fo, 'TRONG')
    else write(fo, 'NGOAI');
    close(fo);
End.