Lập trình Pascal

hấy forum chưa có topic về Pascal nên mình mở cái này để những ai học Pascal vào thi thố tài năng luôn
Luật chơi: Đơn giản. Mỗi người sẽ ra 1 hoặc vài đề Pascal( tối đa 3), những người sau sẽ giải bài thông qua hình thức code bài giải và đăng vào đây, chủ theard sẽ chấm xem ai đúng nhất. khi các bài đã được giải hết thì 1 người bất kì ( cái này ai nhanh trước thì lấy quyền ) sẽ tiếp tục ra đề và những người còn lại tiếp tục như trên.
mình ra 1 đề trước nhé
viết chương trình nhập 1 chuỗi kí tự, in từng từ ( nếu có 2 trở lên) có trong câu ra, đếm xem có bao nhiêu từ đối xứng và in ra số lượng nếu có
tr mắt bài dễ thôi
ai giải dc thì post vào nhé