uses crt;
var
b,c,i,j,,dem,N: integer;
A: array[1..100] of integer;
begin
write('nhap so N:='); readln(N);
For i:=1 to N do
begin
for j:=1 to i do
If (i mod j = 0) then dem:=dem+1;
If dem=2 then
begin
b:=b+1;
A[c+1]:=i;
end;
end;
for c:=1 to b do
begin
If A[c]>A[c+1] then write(A[c])
else A[c+1];
end;
readln
End.