Viết chương trình pascal nhập vào hai số tự nhiên x; y sao cho

Viết chương trình pascal nhập vào hai số tự nhiên x,y sao cho chương trình chỉ cho nhập các số tự nhiên x,y thỏa mãn 4<=x<10 và 30<y<=200
- in ra màn hình các số lẻ chia hết cho 3 trong khoảng từ x đến y và đếm có bao nhiêu số như vậy
- in ra màn hình các số chính phương m sao cho x<m<y và đếm có bao nhiê số m.
 -Tìm dạng tối giản của phân số x/y