Dưới đây là hướng dẫn giải từng bài toán trong ngôn ngữ Pascal.

### a. Tính tổng \( S = \frac{1}{2} + \frac{1}{4} + \frac{1}{6} + ... + \frac{1}{2n} \)

```pascal
program Sum1;
var
n, i: Integer;
S: Real;
begin
S := 0;
Write('Nhap n: ');
ReadLn(n);
for i := 1 to n do
begin
S := S + 1 / (2 * i);
end;
WriteLn('Tong S = ', S:0:2);
end.
```

### b. Tính tổng \( T = 1 + \frac{1}{3} + \frac{1}{5} + ... + \frac{1}{2n-1} \)

```pascal
program Sum2;
var
n, i: Integer;
T: Real;
begin
T := 0;
Write('Nhap n: ');
ReadLn(n);
for i := 0 to n - 1 do
begin
T := T + 1 / (2 * i + 1);
end;
WriteLn('Tong T = ', T:0:2);
end.
```

### c. Tính tổng \( B = 1 + 3 + 5 + 7 + ... + (2n + 1) \)

```pascal
program Sum3;
var
n, i: Integer;
B: Integer;
begin
B := 0;
Write('Nhap n: ');
ReadLn(n);
for i := 0 to n do
begin
B := B + (2 * i + 1);
end;
WriteLn('Tong B = ', B);
end.
```

### Cách chạy chương trình:

1. Mở một trình biên dịch Pascal (như Free Pascal hoặc Turbo Pascal).
2. Tạo một file mới và sao chép mã từ một trong các chương trình trên vào.
3. Biên dịch và chạy chương trình, sau đó nhập giá trị của `n` để tính tổng tương ứng.

Hy vọng những đoạn mã trên có thể giúp bạn giải quyết bài toán! Nếu có bất kỳ câu hỏi nào khác, vui lòng cho tôi biết.