Code Pascal

Code Pascal với ạ
----- Nội dung dịch tự động từ ảnh -----
Câu 4: Số siêu nguyên tố
“Một số được gọi là siêu nguyên tố nếu nó là số nguyên tố và có thể biểu diễn được thành
tổng của hai số nguyên tố khác”.
Ví dụ: 5 là số siêu nguyên tố vì 5 = 2 +3.
Cho số nguyên dương N. Hỏi có bao nhiêu số siêu nguyên tố không vượt quá N?
Dữ liệu vào: Nhập từ bàn phím hai số nguyên dương N (N < 10).
Dữ liệu ra: In ra màn hình kết quả tìm được.
Ví dụ:
Giải thích:
Dữ liệu vào
6
Dữ liệu ra
1
Từ 1 đến 6 có các số nguyên tố: 2, 3, 5.
Số lượng số siêu nguyên tố không vượt quá 6: 1 (chỉ có số 5 là số siêu nguyên tố).
Ràng buộc:
- Có 25% số test ứng với 25% số điểm của bài có 1 ≤ N <10;
- Có 75% số test ứng với 75% số điểm của bài có 103 < N<10