Програмчлалын XV онлайн тэмцээний "Координатын эх" бодлогын бодолт

bodolt

var x,y:array[0..5]of double;
s1,s2,s3,s4:double;
n,i,j:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to 3 do
read(x[j],y[j]);
s1:=abs(y[1]*(x[3]-x[2])+y[2]*(x[1]-x[3])+y[3]*(x[2]-x[1]));
s2:=abs(y[3]*x[2]-y[2]*x[3]);
s3:=abs(y[1]*x[3]-y[3]*x[1]);
s4:=abs(y[2]*x[1]-y[1]*x[2]);
if s1=s2+s3+s4 then writeln('YES')
               else writeln('NO');
end;
readln;
end.