(3 ĐIỂM) PROGRAM BT2; VAR A
Bài 2. (3 điểm) Program BT2; Var a : array[1..100] of integer;Procedure SAPXEP;Procedure NHAP; Var i,n: integer;Var i,j : integer;Beginwrite('Nhap N:');readln(N);for j := N downto 2 do for i := 1 to j-1 do for i:=1 to N do begin if a[i] > a[i+1]then HOANDOI(a[i],a[i+1]); write(‘a[‘,i,’]=’); readln(a[i]);End;Procedure XUAT; end;End;Procedure HOANDOI(Var x,y:integer); for i:=1 to N do write(a[i]:4); Var tg : integer;BEGIN NHAP; SAPXEP; XUAT;