Mình cần gấp tí

Đề bài nói tóm gọn là: Có 1<n<100 thí sinh tham gia và có 4 vòng thi

Sau khi thi 4 vòng thì các thí sinh có số điểm là (1<n<40) và các số điểm đều nằm trong một dãy số

Nói chung là làm chương trình pascal in ra số lượng thí sinh có khả năng đăng quang vô địch, ko đc dùng procedure hay function, với số điểm lấy từ dữ liệu bên ngoài với lệnh assign

ví dụ: có 4 thí sinh có điểm là 35, 30, 15 và 35 thì có 3 thí sinh là có khả năng đăng quang 

ng ta ko có cho số điểm tối thiểu để có khả năng đăng quang nên mình hơi rối