... '); Readln End ********* 010 8********* Program Tam_giac _Pascal; Begin Writeln(' 1' ); Writeln(' 1' ); Writeln(' 1' ); Writeln(' 3 1' ); Writeln( '1 1'); Readln End ********* 010 9********* Program Hinh_tron; ... thuong := so1 / so2; Writeln('*Tong cua hai so ',so1,' va ',so2,' = ',tong); Writeln('*Hieu cua hai so ',so1,' va ',so2,' = ',hieu); Writeln('*Tich cua hai so ',so1,' va ',so2,' = ',tich); ... TRON'); Write('-Cho biet ban kinh = '); Readln(r); s:=3 .14 16 * r * r; Writeln('*Dien tich hinh tron = ',s:6:2,' met vuong'); Readln End ********* 011 0********** Program Khuon_dang; Var ky_tu :Char;...