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