Используя поначалу цикл с условием, а потом - цикл с переменной,

Четные степени числа 2 - это все равно что целые ступени числа 4 от до .
Программы на Pascal:
program first;
var i:integer;
begin
  i:=1024;
  while igt;1 do begin
    writeln(i);
    i:=i div 4;
  end;
end.

program second;
var i,pow:integer;
begin
  i:=1024;
  for pow:=5 downto 1 do begin
    writeln(i);
    i:=i div 4;
  end;
end.