lập 1 hàm kiểm tra nguyên tố 

lập 1 hàm kiểm tra số đẹp:

kiểm tra nếu số x ( số cần kiểm tra) ko phải nguyên tố thì thoát  với giá trị false;

ngược lại thì gán y=x div 10;

sau đó duyệt vòng lặp while (y<>0) 

nếu mà nguyên tố của y= false thoát với giá trị false

ngược lại thì gán y:=y div 10;

nếu hết vòng lặp mà vẫn chưa thoát thì

gán biến d:=1 ( d dùng để kiểm tra có số đẹp hay ko ) rồi thoát với giá trị true;

hết chương trình con;

xét chương trình chính:

nhập n;

gán d:=0;

duyệt for từ 1->n nhập a[i];

duyệt tiếp 1 vòng for chạy từ 1->n gọi lại hàm số đẹp của a[i]

nếu số đẹp của a[i]=true thì viết ra a[i];

xét nếu d=0 thì viết ra 0;

kết thúc chương trình.

ko hiểu j thì cứ hỏi lại mik