Làm bằng free pascal

làm bằng free pascal
----- Nội dung dịch tự động từ ảnh -----
BÀI 3: (2.5 điểm). TÍNH TỎNG
Cho dãy A gồm n số bất kì
Yêu cầu: Tính S = ai - az + as - ..+ an với các phép tính cộng trừ luân phiên thay thế
nhau đến cuối dãy
Dữ liệu vào: Cho trong tệp văn bản TINHTONG.INP gồm
TINHTONG.PAS
Dòng 1: Ghi số nguyên dương N (1 Dòng 2: Ghi n số của dãy A theo thứ tự, mỗi số cách nhau một kí tự trắng
Dữ liệu ra: Ghi vào tệp văn bản TINHTONG.OUT gồm một số S, độ chính xác đến 5
chữ số sau dấu chấm thập phân
Ví dụ:
TINHTONG.INP
ΤΙΝΗΤΟNG.OUT
5
-116.15000
3.45 123.6 3 6 7