Фрагмент вида: k := 1; while (k < 100) do k := k + k; write(k); выведет значение k, равное:
Выведет 128; 1 2 4 8 16 32 64 128