Em tham khảo nhé.
Đây là chương trình tìm tổng A:
```
var n, A: real;
write('Nhap vao so n: ');
readln(n);
A := 0;
for var i := 1 to Round(n) do
begin
A := A + 1/i;
end;
writeln('Tong A la: ', A:0:2);
```
Giải thích chương trình:
1. Sử dụng lệnh `readln` để nhập giá trị `n` từ bàn phím.
2. Khởi tạo biến `A` là 0.
3. Sử dụng vòng lặp `for` để tính tổng từ 1 đến `n`.
4. Cộng giá trị của 1/i vào biến `A`.
5. In ra giá trị của `A` với độ chính xác 2 chữ số thập phân bằng lệnh `writeln`.