const
 n = 5;
 a: array[1 .. n] of integer =
   (1, 3, 4, 6, 7);

var
 i, j, s: integer;
 min: integer;
begin
 min := maxInt;
 for i := 1 to n - 2 do
   begin
     s := 0;
     for j := i to i + 2 do
       s := s + a[j];
     if min > s then min := s
   end;

 writeln('min = ', min)
end.

const
 n = 11;
 a: array[1 .. n] of integer =
   (1, 3, 4, 6, 7, 2, 1, 4, 3, 2, 1);

var
 i, s: integer;
 min: integer;
begin
 s := 0;
 for i := 1 to 3 do
   s := s + a[i];
 min := s;

 for i := 4 to n do
   begin
     s := s - a[i-3]+a[i];
     if min > s then min := s
   end;

 writeln('min = ', min)
end.

var Mas1: array of integer;
var i,min,s:integer;
begin
SetLength(Mas1,ListBox1.Items.Count);
for i:=0 to ListBox1.Items.Count-1 do
Mas1[i]:=StrToInt(ListBox1.Items[i]);
min:=maxInt;
for i:=1 to Length(Mas1)-1 do
  begin
    s:=Mas1[i]+Mas1[i-1]+Mas1[i+1];
    if min>s then min:=s;
    end;
Label1.Caption:=FloatToStr(min);
  end;
end.

var A,X:integer;
begin
repeat
Write('');
ReadLn(A);
X:=0;
if (A=Exp(X*Ln(2))) and (X mod 2=0) then
WriteLn(A)
else X:=X+1;
until A=0;
ReadLn;
end.

var j, A:integer;
begin
 repeat
   ReadLn(A);
   if a = 0 then break;
   j := 2;
   while j <= 30 do
     if (longint(A)=longint($0001 shl j)) then
       begin writeln('>', A); break end
     else inc(j, 2)
 until A=0;
end.

var
 j, A:integer;
 stop: boolean;
begin
repeat
ReadLn(A);
if a <> 0 then
 begin
   j := 2;
   stop := false;
   while (j <= 30) and (not stop) do
     if A=($0001 shl j) then
       begin
         writeln('>', A); stop := true
       end
     else inc(j, 2)
 end
until a = 0;
end.

 (j <= 30) and (not stop) do
    if A=($0001 shl j) then

const
 maxPower = 256;

var
 numbers: array[1 .. maxPower] of integer; {можешь изменить на longint если нужно работать с большими числами}

 j, A:integer;
 stop: boolean;
 counter: Integer;
begin

counter := 0;
repeat
ReadLn(A);
if a <> 0 then
 begin
   j := 2;
   stop := false;
   while (j <= 30) and (not stop) do
     if A=($0001 shl j) then
       begin
         inc(counter); numbers[counter] := A; stop := true
       end
     else inc(j, 2)
 end
until a = 0;

writeln('results');
for j := 1 to counter do
 writeln(numbers[j]);
end.

var k,S,n:integer;
begin
Repeat
ReadLn(n);
S:=1;k:=0;
While S<n do
Begin
S:=S*2;
Inc(K)
end;
if (k mod 2=0) and (S=n) then WriteLn(n);
until n=0;
end.