Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tuỳ ý các chữ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố.
Ví dụ 37337 là một số siêu nguyên tố có 5 chữ số vì 3733, 373, 37,3 cũng là các số nguyên tố.
Hãy viết chương trình đọc dữ liệu vào là một số nguyên N (0< N <10) từ bàn phím và đưa ra kết quả ra màn hình là các số siêu nguyên tố có N chữ số cùng số lượng của chúng (nếu không có thông báo không có số ).

Ví dụ khi chạy chương trình:
Dữ liệu vào
Dữ liệu ra

 5
23333 23339 23399 23993 29399 31193 31379 37337 37339 37397 59393 59399 71933 73331 73939
Co 15 so sieu nguyen to co 5 chu so



program Sieu_nguyen_to;
uses crt;
var a,b:array[1..100] of longint;
n,n1,i,j, cs, dem:longint;
{--------------}
function nt(x:longint):boolean;
var i:longint;
begin
if x<=1 then nt:=false
else
begin
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit;
nt:=true;
end;
end;
{--------------}
begin
clrscr;
write(`nhap n`);readln(n);
n1:=1; a[n1]:=0;
for i:=1 to n do
begin
dem:=0;
for j:= 1 to n1 do
for cs:=0 to 9 do
if nt(a[j]*10+cs)=true then
begin
dem:=dem+1;
b[dem]:=a[j]*10+cs;
end;
n1:=dem;
for j:=1 to n1 do
a[j]:=b[j];
end;
for j:=1 to n1 do
write(a[j]:10);
writeln;
if n1>0 then write(`co `,n1, ` so sieu nguyen to co `,n, ` chu so`)
else write(`khong co so sieu nguyen to co `,n,`chu so`);
readln;
end.