global n, k, res;
n := 2;
k := 10;
res := 1;
while k > 0 do
res := res * n;
k := k - 1
od;
write(res)