... Tong:=Luythua(a,m)+Luythua(b,n)+Luythua(c,p)+Luythua(d,q); Write(' Tong luy thua = ',Tong:8:2); Readln End Program ve_duong_thang; Var a,b:integer; procedure ve(n:integer); Var i:integer; Begin For i:=1 to n write(‘*’); End; Begin A:=6;b:=10; ... Program TongLuythua; Var a, b, c, d, Tong: Real; Var a, b, c, d, Tong: Real; m, n, p, q: Integer; m, n, p, q: Integer; Function Luythua(x: Real; k: Integer x: Real; k: Integer): Real; Var i: Integer; ... trúc hàm Procedure [(danh sach tham sơ) ]; Function [(danh sach tham số) ]:; Var : Begin ; End; Ví dụ Procedure ve(n:integer);...