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

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