readln(f, T.A.x, T.A.y, T.B.x, T.B.y, T.C.x, T.C.y);tinhchat(T,D,cn,v);if d then deu:=deu+1 elsebeginif cn then can:=can+1;if v then vuong:=vuong+1;end;end;writeln(g,'co ',deu,'tam giac deu');writeln(g,'co ',can,'tam giac can');writeln(g,'co ',vuong,' tam giac vuong');close(f);close(g);end.
Bài tậ[r]