Program Ca_dao;Begin Writeln(`Trong dam gi dep bang sen,`); Writeln(`La xanh bong trang lai chen nhi vang,`); Writeln(`Nhi vang bong trang la xanh.`); Writeln(`Gan bun ma chang hoi tanh mui bun`); ReadlnEnd.Program Tam_giac;Begin Writeln(`*********`); Writeln(` *******`); Writeln(` *****`); Writeln(` ***`); Writeln(` *`); ReadlnEnd.Program Phep_Tru;Var so1,so2,hieu :Integer;Begin Writeln(` CHUONG TRINH THUC HIEN PHEP TRU SO HOC`); Writeln(` co toi da 4 ky so`); Write(`-Nhap so thu nhat = `); Readln(so1); Write(`-Nhap so thu hai = `); Readln(so2); hieu:= so1-so2; Writeln; Writeln; Writeln(`-------------------------------`); Writeln; Writeln(` `,so1:4); Writeln(` - `,so2:4); Writeln(` -----`); Writeln(` = `,hieu:5); ReadlnEnd.Program Cuu_chuong_1;Var so :Integer;Begin Write(`-Bang cuu chuong so may ?: `); Readln(so); Writeln; Writeln; Writeln(` CHUONG TRINH BANG CUU CHUONG`); Writeln(`-------------------------------`); Writeln; Writeln(so:2,` lan 1 = `,so*1:3); Writeln(so:2,` lan 2 = `,so*2:3); Writeln(so:2,` lan 3 = `,so*3:3); Writeln(so:2,` lan 4 = `,so*4:3); Writeln(so:2,` lan 5 = `,so*5:3); Writeln(so:2,` lan 6 = `,so*6:3); Writeln(so:2,` lan 7 = `,so*7:3); Writeln(so:2,` lan 8 = `,so*8:3); Writeln(so:2,` lan 9 = `,so*9:3); Writeln(so:2,` lan...