program tg;
uses crt;
var da,db,dc,a,b,c:longint;
begin
clrscr;
  write('Ti so tran dau a b ');readln(a,b);
   if a>b then da:=da+3 else if a=b then begin da:=da+1; db:=db+1; end else if a<b then db:=db+3;
  write('Ti so tran dau a c ');readln(a,c);
   if a>c then da:=da+3 else if a=c then begin da:=da+1; dc:=dc+1; end else if a<c then dc:=dc+3;
  write('Ti so tran dau b c ');readln(b,c);
   if b>c then db:=db+3 else if b=c then begin db:=db+1; dc:=dc+1; end else if b<c then dc:=dc+3;
  writeln('Ket qua doi a ',da);
   writeln('Ket qua doi b ',db);
    writeln('Ket qua doi c ',dc);
  readln;
end.

"Da", "db", "dc" là điểm đội a,b,c nhé

Còn bài nào cần giúp không tui làm

Bạn phải biết cách nó chạy ntn nhé chứ đừng học thuộc lòng

uses crt;
var a,b,c,p,q,r,s,u,v:longint;
begin
clrscr;
   write('p:q , r:s , u:v=');readln(p,q,r,s,u,v);
   if p>q then inc(a,3)
   else if p<q then inc(b,3) else begin inc(a); inc(b); end;
   if r>s then inc(b,3)
   else if r<s then inc(c,3) else begin inc(b); inc(c); end;
   if u>v then inc(a,3)
   else if u<v then inc(c,3) else begin inc(a); inc(c); end;
   writeln(a,' ',b,' ',c);
readln;
end.