GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL-CHUONG 1Dang Thanh Tuan(15/3/2004)**********0101**********Program PTB2;Var a,b,c:Integer; delta,x1,x2:Real;Begin Writeln(`GIAI PHUONG TRINH BAC HAI`); Writeln(` --------------`); Repeat Write(`-Nhap he so a= `); Readln(a); Until a 0; Write(`-Nhap he so b= `); Readln(b); Write(`-Nhap he so c= `); Readln(c); delta:=b*b-4*a*c; If delta Writeln(`*Phuong trinh vo nghiem`) Else If delta = 0 Then Writeln(`*Phuong trinh co 2 nghiem bang nhau X= `,-b/2*a:6:2) Else Begin x1:=(-b-sqrt(delta))/2*a; x2:=(-b+sqrt(delta))/2*a; Writeln(`*Nghiem thu nhat X1= `,x1:6:2); Writeln(`*Nghiem thu hai X2= `,x2:6:2); End; readlnEnd.**********0102**********Program Ao_thu;Begin Writeln(` BAI THO AO THU`); Writeln(`Ao thu lanh leo nuoc trong veo`); Writeln(`Mot chiec thuyen cau be teo teo`); Writeln(`Song biec theo lan hoi gon ty`); Writeln(`La vang truoc gio se dua veo`); Writeln(` NGUYEN KHUYEN`); ReadlnEnd.**********0103**********Program So_hoc;Var 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 - so2; tich := so1 * so2; thuong := so1 / so2; Writeln(`*Tong cua hai...