... a,b: integer;Procedure Hoan_doi(Var x,y:integer); Var TG: integer;Begin TG:= x; x:= y; y:=TG;end;BEGIN CLRSCR; a:= 5 ; b:= 10;Writeln( a:6 , b:6); Hoan_doi(a,b);Writeln( a:6 , b:6); ... tong_luy_thua;Uses crt;Var a,b,c,d,S : real; n,m,p,q :integer;Function luythua(x: real,k:integer ): real;Var j: integer; Lt:Real;begin Lt:=1;For j:=1 to k do Lt:=Lt*x; Luythua:=Lt;end;BEGINWrite(‘ ... khác. Ví d : Ve_HCN(25,20); Ve_HCN(3,7) VD 1: Lập ch ơng trình tính tổng luỹ thừa S = am +bn +cp +dqVD 1: Lập ch ơng trình tính tổng luỹ thừa S = am +bn +cp +dq Viết ch ơng trình con...