{Jozef Sivek ml.
cielom programu je najst cisla, ktore sa najlepsie hodia pri vesani
zaclony
}
uses crt;

var I,poc:word;
    a:boolean;

function is_good_no(inp:word):boolean;
         var no:word;
         begin
           if inp<2 then is_good_no:=true;
           if inp>=2 then
                begin
                if (inp mod 2) = 0 then begin
                                          is_good_no:=false;
                                          exit;
                                          end;
                if ((inp-1) mod 2) = 0 then begin
                                          no:=trunc( (inp-1) / 2 );
                                          if is_good_no(no) then is_good_no:=true
                                                                 else is_good_no:=false;
                                          end;
                end;

         end;

function is_my_no(input:word):boolean;
         var no:word;
         begin
         is_my_no:=false;
         if input>2 then begin
                         no:=input-2;
                         if is_good_no(no) then is_my_no:=true;
                         end;
         end;

begin
writeln('Zaclonove cisla, j.s.');
writeln('->');

poc:=0;
I:=0;

repeat
inc(I);

if is_my_no(I) then begin
                    writeln(I:10,' is');
                    inc(poc);
                    end;
until I>60000;
readln;

end.