Câu trả lời:
Program tuluan;
uses crt;
var xo,yo,xa,ya,xb,yb,T : real;
Begin
Clrscr;
Writeln('Nhap lan luot toa do 3 diem O,A,B:');
Readln(xo,yo,xa,ya,xb,yb);
T := (xa-xo)*(xb-xo)+(ya-yo)*(yb-yo);
Writeln('Tich vo huong cua 2 vecto OA va OB la:',T:8:2);
Readln;
End.