Câu 1: Sử dụng vòng lặp For to do hoặc While...do để viết chương trình Pascal thể hiện thuật toán sau: (5 điểm)Bước 1: T ß 1; i ß 0;Bước 2: i ß i + 1;Bước 3: Nếu i 100 thì T ß T * i  và quay lại

```pascal
program tenem_bai1;

var
T, i: Integer;

begin
T := 1; // Bước 1: Khởi tạo T bằng 1
i := 0; // Bước 1: Khởi tạo i bằng 0

// Bước 2 và Bước 3: Sử dụng vòng lặp While để kiểm tra và thực hiện điều kiện
while i < 100 do
begin
i := i + 1; // Tăng giá trị của i lên 1

T := T i; // Nếu điều kiện thỏa mãn thì T = T i
end;

// Bước 4: Thông báo kết quả
WriteLn('Kết quả là: ', T);
end.
```

Giải thích:

1. Khởi tạo biến: Mã nguồn bắt đầu bằng việc khai báo hai biến `T` và `i`, trong đó `T` được khởi tạo bằng 1 và `i` được khởi tạo bằng 0.

2. Vòng lặp: Sử dụng cấu trúc lệnh `while` để kiểm tra xem giá trị của `i` có nhỏ hơn 100 hay không. Điều này cho phép thực hiện các phép toán cho đến khi `i` đạt đến 100.

3. Cập nhật giá trị:
- Trong mỗi lần lặp, biến `i` được tăng thêm 1.
- Đồng thời, giá trị `T` sẽ được cập nhật bằng cách nhân với giá trị hiện tại của `i`. Điều này giúp tính toán giai thừa của các số từ 1 đến 100 (1 2 3 ... 100).

4. Kết thúc: Sau khi vòng lặp hoàn thành, kết quả cuối cùng của `T` sẽ được in ra màn hình.

Với mã nguồn này, bạn đã xây dựng một chương trình để thực thi thuật toán theo yêu cầu một cách hiệu quả và rõ ràng.