... b := 10 ; c := 10 ; d := 10 ; Chuyen(a, b, c, d); Write( ‘ a = ‘ , a, ‘. b = ‘ , b, ‘. c = ‘, c, ‘. d = ‘ , d ); Readln; End. 1 Kãút qu khi chảy chỉång trçnh: a = 10 . b = 10 . c = ... 30 + 40 + 15 = ‘, 30 + 40 + 15 ); Readln; End. 1 Kãút qu: Mạy thỉûc hiãûn phẹp tênh v hiãøn thë 30 + 40 + 15 = 85 – Giạo trçnh Láûp trçnh Pascal càn bn — – 10 — Trang 10 Hồûc ... NguyenToByGoto; Label L1, L2; Var i, j, n1, n2 : Integer; TL : Char; Begin L1: Write( Nhap hai gia tri nguyen : ); Readln(n1, n2); For i := n1 to n2 do Begin For j := 2 to i - 1 do If (i...