program bai_giai;
uses crt;
var i:byte;
function ktnt(k:byte):boolean;
var r,k1:byte;
begin
k1:=k mod 10; k:=k div 10; k1:=k1*10+k;
for r:=2 to trunc(sqrt(k1)) do
if k1 mod r=0 then exit(false);
exit(true);
end;
BEGIN
clrscr;
for i:=11 to 99 do
if ktnt(i) then write(i,' ');
readln;
END.