binarni zapis od jedinica

program binarjedan;
var m,n,i,b:integer;

function prost(n:integer):boolean;
var d:integer;
    r:boolean;
begin
    r:=(n=2) or ((n mod 2=1) and (n>1));
    d:=3;
    while ((d*d<=n) and r) do
        begin
        r:=r and (n mod d<>0);
        d:=d+2;
        end;
    prost:=r;
end; {kraj funkcije prost}

begin
write('interval u kome se traze prosti brojevi ciji se binarni zapis sastoji samo od jedinica: ');
readln(m,n);
b:=0;
i:=3;
while(i<m) do i:=2*i+1;
while(i<n) do
    begin
    if prost(i) then
                begin
                writeln(i);
                b:=b+1;
                end;
    i:=2*i+1;
    end;

writeln('ima ukupno ',b,' takvih brojeva');
readln;
end.