只得了40分

var

m,n,i,j:longint;

s:string;

found:boolean;

begin

readln(m,n);

for i:=m to n do begin

found:=true;

for j:=2 to round(sqrt(i)) do

if i mod j=0 then found:=false;

if found then begin

str(i,s);

for j:=1 to length(s) do

if s[j]s[length(s)-j+1] then found:=false;

end;

if found then writeln(i);

end;

end.