Code kiem tra so sieu nguyen to

var dau,cuoi,i,d,n:longint;
kt:boolean;
f1,f2: text;
function nt(m:longint):boolean;
var t,j:longint;
begin
t:=0;
for j:=1 to m do
if m mod j =0 then t:=t+1;
if t=2 then nt:= true else nt:= false ;
end;
begin
assign(f1,`sieunguyento.inp`);
assign(f2,`sieunguyento.out`);
reset(f1); rewrite(f2);
readln(f1,n);
dau:=1;
for i:=1 to n-1 do dau:=dau*10;
cuoi:=dau*10-1;
for i:= dau to cuoi do
begin
d:=i;
if nt(i)=true then kt:=true else kt:=false;
while kt=true do
begin
d:=d div 10;
if nt(d)=true then kt:=true else kt:=false;
end;
if d=0 then write(f2,i,` `);
end;
close(f1); close(f2);
end.