uses crt;
var i, doan, ran, dnguoi, dmay: byte;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
ran:= random(3);
write('Lan doan thu ',i,'. Nhap mot so 1 hoac 2: ');
readln(doan);
if (doan = ran) then dnguoi:=dnguoi+1 else dmay:=dmay+1;
end;
if (dnguoi > dmay) then write('Ban da thang voi so diem: ',dnguoi) else write('Ban da thua voi so diem: ',dnguoi);
readln
end.