giúp mình giải câu này đi bài này làm trên pascal nhé

Dưới đây là chương trình Pascal giải bài toán mà bạn cung cấp:

```pascal
program DanhSach;
var
i, maSo: integer;
toan, van, ngoaiNgu: real;
tongDiem: real;
diemTrungBinh: real;
soHocSinh: integer;
begin
writeln('Nhập vào số học sinh: ');
readln(soHocSinh);

for i := 1 to soHocSinh do
begin
writeln('Nhập số báo danh cho học sinh ', i, ': ');
readln(maSo);

writeln('Nhập điểm thi môn Toán: ');
readln(toan);
writeln('Nhập điểm thi môn Văn: ');
readln(van);
writeln('Nhập điểm thi môn Ngoại ngữ: ');
readln(ngoaiNgu);

tongDiem := toan + van + ngoaiNgu;
diemTrungBinh := tongDiem / 3;

writeln('Số báo danh: ', maSo);
writeln('Điểm môn Toán: ', toan:0:2);
writeln('Điểm môn Văn: ', van:0:2);
writeln('Điểm môn Ngoại ngữ: ', ngoaiNgu:0:2);
writeln('Tổng điểm: ', tongDiem:0:2);

if (diemTrungBinh >= 5) then
writeln('Điểm trung bình: ', diemTrungBinh:0:2, ' - Đậu')
else
writeln('Điểm trung bình: ', diemTrungBinh:0:2, ' - Rớt');

writeln; // Dòng trắng để tách biệt giữa các học sinh
end;

readln;
end.
```

Giải thích chương trình:

1. Khai báo biến:
- `i`, `maSo`: Để lặp và lưu số báo danh.
- `toan`, `van`, `ngoaiNgu`: Để lưu điểm thi tương ứng với các môn.
- `tongDiem`: Tổng điểm của ba môn.
- `diemTrungBinh`: Điểm trung bình của học sinh.
- `soHocSinh`: Số lượng học sinh nhập vào.

2. Nhập số học sinh: Chương trình yêu cầu người dùng nhập vào số học sinh.

3. Vòng lặp:
- Dùng vòng lặp `for` để nhập thông tin cho từng học sinh, trong đó có số báo danh và điểm của từng môn.

4. Tính toán:
- Tính tổng điểm và điểm trung bình dựa trên điểm của ba môn.

5. Xuất kết quả:
- In ra số báo danh, điểm của mỗi môn và tổng điểm.
- Kiểm tra điểm trung bình để đưa ra kết luận học sinh "Đậu" hay "Rớt".

Chương trình thực hiện đúng yêu cầu của bài toán và có thể mở rộng thêm chức năng theo nhu cầu.