Bài 52/2001 - Xác định tứ giác đồng hồ ma trận (Dành cho học sinh THCS PTTH) uses crt; var s,n,i,k,j,a1,a2,b1,b2:integer; chon,mau:byte; a:array[1 100,1 100]of integer; { } procedure nhap; begin write('nhap n>=2:');readln(n); for i:=1 to n for j:=1 to n begin write('nhap a[',i,'j]:'); readln(a[i,j]); end; end; { } procedure tinh; begin clrscr; nhap; s:=0; for i:=1 to n-1 for j:=1 to n-1 if ((a[i,j]