... 3: Viết thủ tục để hoán đổi hai gía trị x,y cho nhau. Giáo Viên: Trần Đình Hải16Trường THCS TT Gio Linh *** ** *Giáo án bồi dưỡng HSG tin học ARRAY2 = ARRAY[1 Dim,1 Dim] of Integer;VAR ... Real;a : Mang;Begin Giáo Viên: Trần Đình Hải43Trường THCS TT Gio Linh *** ** *Giáo án bồi dưỡng HSG tin họcProgram Bai1; var dai,rong,dientich:real;{ }procedure tinhdientich(a,b:real;var ... mảng}Write(‘Nhap N=’); Readln(N);For i:=1 To N Do Giáo Viên: Trần Đình Hải30Trường THCS TT Gio Linh *** ** *Giáo án bồi dưỡng HSG tin họcGV: Giáo án, phấn màu vẽ sơ đồHS: Ôn tập các câu lệnh...