Найти все простые натуральные числа, не превосходящие n, двоичная запись которых представляет собой палиндром

function simple(n : integer) : boolean;
   var i, max : integer; f : boolean;
   begin
      i := 2;
      max := round(sqrt(n));
      f := n <> 1;
      while i <= max do begin
         if n mod i = 0 then begin
            f := false;
            break
         end;
         i := i + 2;
      end;
      simple := f
   end;
   
function oborot(s:string): string; 
var i: integer; s1: string;
begin
s1:='';
for i:=1 to length(s) do 
  s1:=s[i]+s1;
oborot:=s1;
end;
   
function x(n: integer): boolean;   
var s:string;
begin
s:='';
while n>0 do
 begin
  s:=chr(n mod 2+48)+s;
  n:=n div 2;
 end;
 //writeln (s);
if s<>oborot(s) then x:=false
else x:=true;
end;   
 
var n, i : integer;
begin
   write('n = '); 
   readln(n);
   for i := 1 to n do
      if simple(i) then 
        if x(i) then write(i, ' ');
   writeln;
end.

program ex;
var  i,k,n,count: word;
z,err:integer;
  
function dec2bin(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
dec2bin:=s;
end;
 
function palindrom(var a:integer):integer;
var b,c:integer;
begin
b:=a;
c:=0;
while b>0 do
 begin
  c:=c*10+(b mod 10);
  b:=b div 10;
 end;
if c=a then palindrom:=1
       else  palindrom:=0;
end;
 
begin
  readln(n);
  for k := 1 to n do begin
    count := 0;
    for i := 1 to k do begin
      if k mod i = 0 then inc(count)
    end;
    if count = 2 then (*write(k, ' ')*)
                  begin
                  val(dec2bin(k),z,err);
                  if (palindrom(z)=1) then
                  writeln(k);
                  end;
  end
end.

program 123;
var  n: longint; //2147483647
z,err:integer;
  
//перевод в двоичную систему счисления
function bin(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
bin:=s;
end;
 
begin
read(k);
       val(bin(k),z,err); 
       writeln(bin(k)); // двоичная запись числа в строке
       writeln('Двоичная запись: ',z);
end.

program fff;
var  i,k,n,count: longint; 
z,err:integer;
var f: text;
  
//перевод в двоичную систему счисления 
function bin(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
bin:=s;
end;
 
//проверка числа на палиндромность
function palindrom(var a:integer):integer;
var b,c:integer;
begin
b:=a;
c:=0;
while b>0 do
 begin
  c:=c*10+(b mod 10);
  b:=b div 10;
 end;
if c=a then palindrom:=1
       else  palindrom:=0;
end;
 
begin
  assign(f, 'output.txt');
  rewrite(f);
  
  readln(n);
  for k := 1 to n do begin
  count := 0;
    for i := 1 to k do begin
      if k mod i = 0 then begin
        inc(count);
        if count>2 then break;
      end;
    end; 
  if count = 2 then begin  //если число простое, то проверяем его на палиндромность begin
                        val(bin(k),z,err); //Перевод из строки в число.
                        if (palindrom(z)=1) then begin
                          write('Число: ',k,' ');
                          write(f, 'Число: ',k,' ');
                          writeln('Двоичная запись: ',z);
                          writeln(f, 'Двоичная запись: ',z);
                        end;
                    end;     
  end;
  close(f);
end.

function simple(n : integer) : boolean;
   var i, max : integer; f : boolean;
   begin
      i := 2;
      max := round(sqrt(n));
      f := n <> 1;
      while i <= max do begin
         if n mod i = 0 then begin
            f := false;
            break
         end;
         i := i + 1;
      end;
      simple := f
   end;
   
function oborot(s:string): string; 
var i: integer; s1: string;
begin
s1:='';
for i:=1 to length(s) do 
  s1:=s[i]+s1;
oborot:=s1;
end;
   
function x(n: integer): boolean;   
var s:string;
begin
s:='';
while n>0 do
 begin
  s:=chr(n mod 2+48)+s;
  n:=n div 2;
 end;
 //writeln (s);
if s<>oborot(s) then x:=false
else x:=true;
end;   
 
var n, i : integer;
begin
   write('n = '); 
   readln(n);
   for i := 1 to n do
      if simple(i) then 
        if x(i) then writeln(i, ' ');
   writeln;
end.

function reverse(n : Integer) : Integer;
var
  r : Integer;
begin
  r := 0;
  while n > 0 do
    begin
      r := r shl 1 + n and 1;
      n := n shr 1;
    end;
  reverse := r;
end;

var
  n, i : Integer;
begin
  Write('n = '); ReadLn(n);
  for i := 3 to n do
    if i = reverse(i) then
      if simple(i) then
        WriteLn(i);
end.

procedure Gen(n : Integer; var v, v0, v1 : Integer);
begin
  v := n; v0 := n shl 1; v1 := n shl 1 + 1;
  repeat
    v  := v  shl 1 + n and 1;
    v0 := v0 shl 1 + n and 1;
    v1 := v1 shl 1 + n and 1;
    n := n shr 1;
  until n = 0;
end;
 
var
  n, i, v, v0, v1 : Integer;
begin
  Write('n = '); ReadLn(n);
  i := 1;
  repeat
    Gen(i, v, v0, v1);
    if simple(v ) then WriteLn(v );
    if simple(v0) then WriteLn(v0);
    if simple(v1) then WriteLn(v1);
    inc(i);
  until v1 >= n;
end.