... so:array[1 4,0 9, 0 9] of boolean; f:text; tangdan:boolean; n,s,fn,socu:word; Tongxk:longint; procedure nhap; var i,k:word; begin fillchar(a,sizeof(a),0); assign(f,fi); reset(f); socu:=0; tangdan:=true; ... tên thí sinh : Số báo danh Chữ kí giám thị Sở giáo dục đào tạo Tỉnh ninh bình Chữ kí giám thị Hớng dẫn chấm thi Chọn hsg lớp THCS năm học 2007 - 2008 Môn: Tin học I- Dữ liệu chấm Giám ... then begin if (jk)and so[i,k,j] then begin write(i,j,k,' ',i,k,j); exit; end; if (k0)and(ik)and so[k,j,i] then begin write(i,j,k,' ',k,j,i); exit; end; if (j0)and(ij)and so[j,i,k] then...