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`.

good chops em

gôod

program bang_nhan;

uses Crt;

var i,n:Integer

 begin

 clrscr;

n:=7;

for i:=1 to 10 do

 WriteLn(n,'x',i:2,'=',n*i:3);

Readln

 end.

Program cuu_chuong_7;

Var;

      i : interger;

      k : interger;

Begin;

       for i := 1 to 10 do:

             k := 7;

             writeln (k, “x”, i, “=”, k * i);

End;

Program HOC24;

var i,d: byte;

n,l: real;

begin

n:=100;

while n<200 do

begin

l:=n/100*10;

n:=n+l;

d:=d+1;

end;

write('Ket qua la: ',d);

readln 

end.

Thuật toán liệt kê:

Bước 1: Nhập N

Bước 2: T←1; i←1;

Bước 3: Kiếm tra nếu i>n thì in kết quả T và kết thúc

Bước 4: T←T*i;

Bước 5: i←i+1, quay lại bước 3