var i:longint;
function huiwen(n:longint):boolean;
var a,b,c:longint;
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
if n=100*c+10*b+a then huiwen:=true
else huiwen:=false;
end;
function sushu(n:longint):boolean;
var i:longint;
begin
sushu:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then sushu:=false;
end;
begin
for i:=100 to 999 do
if huiwen(i) and sushu(i) then write(i:5);
end.
//delphi/7231