... a[j,i]:=0; Dem:=dem+1; B[dem]:=j; If j=kt then Begin Xuat; Den:=true; End Else tim(j); A[i,j]:=1; a[j,i]:=1; Dem:=dem-1; End; If not den and (dem=1) then writeln(‘khong co duong ... khai báo: Type hocsinh=record hoten:string[28]; ngaysinh:string[10]; noisinh:string[40]; toan, van, sinh: real; ketqua:boolean; end; var hs: array[1 50] of hocsinh; Câu lệnh nào ... n,m,k,d,i,soxau:longint; dem:array[1 14] of integer; function soluong(s:string):integer; var i,dem:integer; begin dEM:=0; for i:=1 to length(s) do if s[i]='A' then dEM:=dEM+1; soluong:=dEM;...