... end;procedure lam;var i,j,x,y,u,v,k :integer; begin for i:=1 to dem do for j:=dem downto 1 do for x:=1 to dem do for y:=dem downto 1 do begin for u:=1 to 5 do for v:=1 to 5 do a[u,v]:=w[i,u,v]; ... i:=1 to n do if b[i]>n-i then exit else begin j:=0; dem:=0; repeat inc(dem); if luu[dem]=0 then j:=j+1; until j>b[i]; luu[dem]:=i; end; for i:=1 to n do write(g,luu[i]:2); end;BEGIN ... 4000, phanso] of integer; N, dem : Integer;Procedure nhap;Begin Write('Nhap so N:'); Readln(N); F[1,tu] := 0; F[1,mau] := 1; dem := 2; F[dem, tu] := 1; F[dem,mau] := 1;End;Procedure...