... array[1 10] of integer;i:byte;Beginfor i:=1 to 10 doBeginWrite('Nhap so ',i,' : '); readln(a[i]);End;assign(f1,'c:\data1.txt');rewrite(f1);for i:=1 to 10 dowrite(f1,a[i]:4);close(f1);End.1b:Program ... Tong(a1,d,n);Readln;END.Bài 9a: Viết thủ tục giải phương trình bậc 1 ax+b=0.Bài 10a : Viết thủ tục giải phương trình bậc 2 ax2+bx+c=0.Bài 11a: Viết thủ tục luythua để tính an , áp dụng: tínham+bn ... thực) chứa thông tin là diện tích của 5 hình tròn trên. Ghi kết quả vào tệp C:\dientich.txtBài 3*:Cho 2 mảng 1 chiều (kiểu số nguyên) A và B, mỗi mảng gồm 5 phần tử - chứa thông tin về độ dài...