... a n Program Cap _so_ cong; Var a1,an,d,n: integer; Procedure So_ n(a1,d,n: integer); var tam, i: integer; Begin tam:=a1; for i:=1 to n-1 do tam:=tam + d; Writeln('Gia tri cua so thu ',n,' ... cua day so la: ',tam2); End; BEGIN Write('-Nhap so hang thu 1: '); readln(a1); Write('-Nhap cong sai : '); readln(d); Write('-Nhap n: '); readln(n); So_ n(a1,d,n); ... diện tích của 5 hình tròn trên. Ghi kết quả vào tệp C:\dientich.txt Bà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 2 cạnh của 5 hình chữ nhật....