Поставьте алгоритм с использованием операции цикла на вычисление 2^10( 30 )

Если нужно конкретно для 2^10
x:=1;
while x<1024
begin
x:=x*2;
write (x ,' ');
end.
модераторы, не совсем понял то , что написано в конце