Làm bằng free pascal

làm bằng free pascal
----- Nội dung dịch tự động từ ảnh -----
BÀI 2: (2.5 điểm). BIỂU THỨC
Cho số nguyên dương n và biểu thức S = ++..+
Yêu cầu: Tính S và in ra S với độ chính xác 5 chữ số sau dấu chấm thập phân
Dữ liệu vào: Cho trong tệp văn bản BT.INP gồm một số nguyên dương n (1 < n<
ВТ.PAS
n+1
1000000)
Dữ liệu ra: Ghi vào tệp văn bản BT.OUT giá trị S theo yêu cầu
Ví dụ:
BT.INP
ВТ.OUT
7
5.28214