... Writeln('CHUONG TRINH TINH DIEN TICH HINH TRON'); Write('-Cho biet ban kinh = '); Readln(r); s:=3.1416 * r * r; Writeln('*Dien tich hinh tron = ',s: 6:2 ,' ... nghiem bang nhau X= ',-b/2*a: 6:2 ) Else Begin x 1:= (-b-sqrt(delta))/2*a; x 2:= (-b+sqrt(delta))/2*a; Writeln('*Nghiem thu nhat X1= ',x 1:6 :2 ); Writeln('*Nghiem thu hai ... so1,so2,tong,hieu,tich:Integer; thuong:Real; Begin Write('-Nhap so thu nhat = '); Readln(so1); Write('-Nhap so thu hai = '); Readln(so2); tong := so1 + so2; hieu := so1 -...