Как при помоци цикла for в Паскале, число последовательно возвести в 1, 2,4,6...2n степень?

Этот цикл возводит число x в любую натуральную степень n, получаем число y=x^n

y:=1;
for i:=1 to n do
y:=y*x;